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