fact: Definition split_ent (A : set (M * M)) := get (entourage `&` [set B | B \; B `<=` A]).
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed