fact: Definition isarchrig_pos {X : rig} (R : hrel X) : isarchrig R -> ∏ x : X, ∃ n : nat, R (nattorig n + x)%rig 0%rig := λ H, (pr2 (pr2 H)).
imports: UniMath.Foundations.NaturalNumbers UniMath.Algebra.RigsAndRings UniMath.Algebra.Groups UniMath.Algebra.DivisionRig UniMath.Algebra.Domains_and_Fields UniMath.Algebra.ConstructiveStructures UniMath.MoreFoundations.Tactics