proposition: Lemma Dcuts_def_corr_finite (X : hsubtype NonnegativeRationals) : Dcuts_def_corr X → Dcuts_def_finite X.
proof: Proof. intros Hx. specialize (Hx _ ispositive_oneNonnegativeRationals). revert Hx ; apply hinhuniv ; apply sumofmaps ; [intros Hx | intros x]. - apply hinhpr. exists 1 ; exact Hx. - apply hinhpr ; exists (pr1 x + 1) ; exact (pr2 (pr2 x)). Qed.
imports: UniMath.MoreFoundations.Orders UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Notations UniMath.RealNumbers.Sets UniMath.Algebra.ConstructiveStructures UniMath.OrderTheory.Lattice.Lattice UniMath.RealNumbers.Prelim UniMath.RealNumbers.NonnegativeRationals