fact: Definition ConstructiveCommutativeDivisionRig_ConstructiveDivisionRig : ConstructiveCommutativeDivisionRig -> ConstructiveDivisionRig := λ X, (pr1 (pr1 X),,pr1 (pr2 (pr1 X))) ,, (pr2 X).
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics