proposition: Lemma lee_subgt0Pr x y : reflect (forall e, (0 < e)%R -> x - e%:E <= y) (x <= y).
proof: Proof. apply/(iffP idP) => [xy e|xy]. by rewrite lee_subl_addr//; move: e; exact/lee_addgt0Pr. by apply/lee_addgt0Pr => e e0; rewrite -lee_subl_addr// xy. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap) mathcomp(mathcomp_extra) signed