Definition fldfracgt (X : intdom) (is : isdeceq X) {R : hrel X} (is0 : @isbinophrel X R) (is1 : isringmultgt X R) (is2 : R 1 0) (nc : neqchoice R) : hrel (fldfrac X is) := λ a b, commringfracgt X (ringpossubmonoid X is1 is2) is0 is1 (λ c r, r) (weqfldfracgt_f X is is0 is1 is2 nc a) (weqfldfracgt_f X is is0 is1 is2 nc b).
Require Import UniMath.Algebra.Groups.