diff options
| author | Christian Doczkal | 2019-11-03 16:33:44 +0100 |
|---|---|---|
| committer | Christian Doczkal | 2019-11-04 11:10:11 +0100 |
| commit | 185ea5895b1e89eaf6f741d560910a24541c62eb (patch) | |
| tree | 2c9777877570aefa1af34d65762dbdcfe3cf7720 /mathcomp/character/character.v | |
| parent | 71e397e46b65c1c27a65471170d71f388c8a45f1 (diff) | |
add existsPn/forallPn lemmas
Diffstat (limited to 'mathcomp/character/character.v')
| -rw-r--r-- | mathcomp/character/character.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/character/character.v b/mathcomp/character/character.v index c2a7ef4..c95d03b 100644 --- a/mathcomp/character/character.v +++ b/mathcomp/character/character.v @@ -2930,7 +2930,7 @@ have [-> | ntG] := eqsVneq G [1]; first by exists 0; apply: cfker_sub. have{pG} [[p_pr _ _] pZ] := (pgroup_pdiv pG ntG, pgroupS (center_sub G) pG). have ntZ: 'Z(G) != [1] by rewrite center_nil_eq1. have{pZ} oZ: #|Z| = p by apply: Ohm1_cyclic_pgroup_prime. -apply/existsP; apply: contraR ntZ; rewrite negb_exists => /forallP-not_ffulG. +apply/existsP; apply: contraR ntZ => /existsPn-not_ffulG. rewrite -Ohm1_eq1 -subG1 /= -/Z -(TI_cfker_irr G); apply/bigcapsP=> i _. rewrite prime_meetG ?oZ // setIC meet_Ohm1 // meet_center_nil ?cfker_normal //. by rewrite -subG1 not_ffulG. |