proposition: Lemma Dcuts_notlt_0 : ∏ x : Dcuts, ¬ (x < Dcuts_zero).
proof: Proof. intros x. unfold neg. apply factor_through_squash. - exact isapropempty. - intros r. exact (Dcuts_zero_empty _ (pr2 (pr2 r))). 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