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 | |
| parent | 71e397e46b65c1c27a65471170d71f388c8a45f1 (diff) | |
add existsPn/forallPn lemmas
Diffstat (limited to 'mathcomp/character')
| -rw-r--r-- | mathcomp/character/character.v | 2 | ||||
| -rw-r--r-- | mathcomp/character/integral_char.v | 4 |
2 files changed, 3 insertions, 3 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. diff --git a/mathcomp/character/integral_char.v b/mathcomp/character/integral_char.v index 0109b83..c6d40e2 100644 --- a/mathcomp/character/integral_char.v +++ b/mathcomp/character/integral_char.v @@ -687,7 +687,7 @@ Theorem nonlinear_irr_vanish gT (G : {group gT}) i : 'chi[G]_i 1%g > 1 -> exists2 x, x \in G & 'chi_i x = 0. Proof. move=> chi1gt1; apply/exists_eq_inP; apply: contraFT (ltr_geF chi1gt1). -rewrite negb_exists_in => /forall_inP-nz_chi. +move/exists_inPn => -nz_chi. rewrite -(norm_Cnat (Cnat_irr1 i)) -(@expr_le1 _ 2) ?normr_ge0 //. rewrite -(ler_add2r (#|G|%:R * '['chi_i])) {1}cfnorm_irr mulr1. rewrite (cfnormE (cfun_onG _)) mulVKf ?neq0CG // (big_setD1 1%g) //=. @@ -708,4 +708,4 @@ apply: sum_norm2_char_generators => [|s Ss]. by rewrite -resS // nz_chi ?(subsetP sgG) ?cycle_generator. Qed. -End MoreIntegralChar.
\ No newline at end of file +End MoreIntegralChar. |