<ℤ+,*> ∈ AbMon
{ ((Unfold `posint_mul_mon` 0 THEN BLemma `mk_abmonoid`) THENA Auto) }
Assoc(ℕ+;λx,y. (x * y))
Ident(ℕ+;λx,y. (x * y);1)
Comm(ℕ+;λx,y. (x * y))