WellFnd{i}(|<ℤ+,*>|;x,y.x p| y){ RepUnfolds ``mdivides mpdivides`` 0 THEN AbReduce 0 }WellFnd{i}(ℕ+;x,y.(∃c:ℕ+. (y = (x * c) ∈ ℕ+)) ∧ (¬(∃c:ℕ+. (x = (y * c) ∈ ℕ+))))