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) ∈ ℕ+))))