fact: Definition ringfromlt0 (X : ring) {R : hrel X} (is0 : @isbinophrel X R) {x : X} (is : R 0 x) : R (- x) 0 := grfromltunel X is0 is.
imports: UniMath.Algebra.Groups UniMath.MoreFoundations.Sets UniMath.MoreFoundations.Orders UniMath.Algebra.Monoids