fact: Definition biglubmorph (U V : semiCompSemiLattType) (f : U -> V) := forall (X : neset U), f (|_| X) = |_| (f @` X)%:ne.
imports: HB(structures) Reals mathcomp(all_ssreflect ssralg ssrnum) mathcomp(mathcomp_extra boolp classical_sets Rstruct reals) mathcomp(finmap) Reals_ext realType_ext classical_sets_ext ssrR fdist fsdist convex