proposition: Lemma lte_add_pinfty x y : x < +oo -> y < +oo -> x + y < +oo.
proof: Proof. by move: x y => -[r [r'| |]| |] // ? ?; rewrite -EFinD ltry. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed