fact: Fixpoint natmult {X : monoid} (n : nat) (x : X) : X := match n with | O => 0%addmonoid | S O => x | S m => (x + natmult m x)%addmonoid end.
imports: UniMath.Foundations.NaturalNumbers UniMath.Algebra.RigsAndRings UniMath.Algebra.Groups UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.ConstructiveStructures UniMath.MoreFoundations.Tactics