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