fact: Definition compact A := forall (F : set_system T), ProperFilter F -> F A -> A `&` cluster F !=set0.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed