fact: Definition le_expandLR := monoLR_in (in_onW_can _ predT contractK) (fun x _ => contract_le1 x) (@le_expand_in R).
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