fact: Definition sup_ent : set_system (T * T) := filter_from (finI_from [set: IEnt] (fun p => (projT1 p).2)) id.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed