proposition: Lemma Dcuts_of_Dcuts_bot : ∏ (x : NonnegativeRationals), Dcuts_of_Dcuts_val x -> ∏ y : NonnegativeRationals, (y <= x)%NRat -> Dcuts_of_Dcuts_val y.
proof: Proof. intros r Xr n Xn. revert Xr ; apply hinhfun ; intros X. exists (pr1 X) ; split. - exact (pr1 (pr2 X)). - apply is_Dcuts_bot with r. + exact (pr2 (pr2 X)). + exact Xn. 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