fact: Definition make_aintdom := tpair ( P := fun A : acommring => ( ringunel2 ( X := A ) ) # 0 × forall a b : A, a # 0 -> b # 0 -> ( a * b ) # 0 ).
imports: UniMath.Tactics.EnsureStructuredProofs UniMath.Foundations.PartA UniMath.Foundations.Propositions UniMath.Foundations.NaturalNumbers UniMath.Algebra.RigsAndRings UniMath.Algebra.Domains_and_Fields UniMath.NumberSystems.Integers UniMath.Algebra.Monoids