proposition: Lemma nat_nat_prod_abmonoid_fun_unel {X : abgr} (x : X) : (nataddabmonoid_nataddabmonoid_to_monoid_fun x) (unel (abmonoiddirprod nataddabmonoid nataddabmonoid)) = (unel X).
proof: Proof. use (pathscomp0 (lunax X _)). use idpath. Qed.
imports: UniMath.Foundations.NaturalNumbers UniMath.MoreFoundations.PartA UniMath.MoreFoundations.NegativePropositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings UniMath.NumberSystems.NaturalNumbersAlgebra