proposition: Lemma abgr_natnat_hz_X_comm {X : abgr} (x : X) : monoidfuncomp hz_abmonoid_monoidfun (hz_abgr_fun_monoidfun x) = nat_nat_prod_abmonoid_monoidfun x.
proof: Proof. use monoidfun_paths. use funextfun. intros n. use setquotunivcomm. Qed.
imports: UniMath.Foundations.NaturalNumbers UniMath.MoreFoundations.PartA UniMath.MoreFoundations.NegativePropositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings UniMath.NumberSystems.NaturalNumbersAlgebra