proposition: Lemma uboundT : ubound [set: \bar R] = [set +oo].
proof: Proof. apply/seteqP; split => /= [x Tx|x -> ?]; last by rewrite leey. by apply/eqP; rewrite eq_le leey /= Tx. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra boolp classical_sets functions) mathcomp(fsbigop cardinality set_interval) reals signed topology constructive_ereal