proposition: Lemma generatedP x A : reflect (forall G, A \subset G -> x \in G) (x \in <<A>>).
proof: Proof. rewrite [@generated]unlock; exact: bigcapP. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype div path tuple bigop prime finset)