Lemma isrunit_Dcuts_mult_one : isrunit Dcuts_mult Dcuts_one. Proof. intros x. rewrite iscomm_Dcuts_mult. now apply islunit_Dcuts_mult_one. Qed.
Require Import UniMath.MoreFoundations.Orders. Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.Notations. Require Import UniMath.RealNumbers.Sets. Require Import UniMath.OrderTheory.Lattice.Lattice. Require Import UniMath.RealNumbers.Prelim. Require Import UniMath.RealNumbers.NonnegativeRationals.