proposition: Lemma Dcuts_le_ge_eq : ∏ x y : Dcuts, x <= y -> x >= y -> x = y.
proof: Proof. intros x y le_xy ge_xy. apply Dcuts_eq_is_eq. split. - now refine (le_xy _). - now refine (ge_xy _). 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