proposition: Lemma isarchhz_one : ∏ x : hz, hzgth x 0 → ∃ n : nat, hzgth (nattohz n * x) 1.
proof: Proof. intros x Hx. generalize (isarchring_1 _ isarchhz x Hx). apply hinhfun. intros n. exists (pr1 n). rewrite <- nattorig_nattohz. exact (pr2 n). Qed.
imports: UniMath.Foundations.NaturalNumbers UniMath.MoreFoundations.PartA UniMath.MoreFoundations.NegativePropositions UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.Algebra.RigsAndRings UniMath.NumberSystems.NaturalNumbersAlgebra