proposition: Lemma le_bnd_ereal (a b : itv_bound R) : (a <= b)%O -> (a <= b)%E.
proof: Proof. move: a b => -[[] a|[]] [bb b|[]] //=; rewrite ?(leey,leNye)//. by rewrite bnd_simp. by move=> /lteifW. Qed.
imports: mathcomp(all_ssreflect ssralg ssrnum ssrint interval) mathcomp(finmap fingroup perm rat) mathcomp(mathcomp_extra boolp classical_sets functions) HB(structures) reals ereal signed topology normedtype sequences