proposition: Lemma bool_compact : compact [set: bool].
proof: Proof. by rewrite setT_bool; apply/compactU; exact: compact_set1. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra finmap generic_quotient) mathcomp(boolp classical_sets functions) mathcomp(cardinality mathcomp_extra fsbigop) reals signed