Lemma plusNonnegativeReals_lt_l: ∏ x y : NonnegativeReals, 0 < x <-> y < x + y. Proof. intros x y. pattern y at 1. rewrite <- (islunit_zero_plusNonnegativeReals y). now apply plusNonnegativeReals_ltcompat_l. 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.