proposition: Lemma class_support_id : class_support G G = G.
proof: Proof. by apply/eqP; rewrite eqEsubset sub_class_support class_support_subG. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype div path tuple bigop prime finset)