fact: Definition ConstructiveField := ∑ X : commring, ∑ R : tightap X, isapbinop (X := (pr1 (pr1 X)) ,, R) BinaryOperations.op1 × isapbinop (X := (pr1 (pr1 X)) ,, R) BinaryOperations.op2 × isConstrDivRig X R.
imports: UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.Apartness UniMath.MoreFoundations.Tactics