.....set predicate..... IsIntegDom(ℤ-rng){ UnfoldTopAb 0 THEN AbReduce 0⋅ }0 ≠ 1 ∧ (∀u,v:ℤ.  ((¬(v = 0 ∈ ℤ)) ⇒ ((u * v) = 0 ∈ ℤ) ⇒ (u = 0 ∈ ℤ)))