proposition: Lemma Dcuts_of_Dcuts'_bot : ∏ (x : Dcuts), Dcuts_of_Dcuts'_val x -> ∏ y : Dcuts, (y <= x) -> Dcuts_of_Dcuts'_val y.
proof: Proof. intros r Xr n Xn. revert Xr. apply hinhfun. intros q. exists (pr1 q). split. - intros Nq. apply (pr1 (pr2 q)). now simple refine (Xn _ _). - exact (pr2 (pr2 q)). 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