diff options
| author | Cyril Cohen | 2018-02-06 19:36:53 +0100 |
|---|---|---|
| committer | GitHub | 2018-02-06 19:36:53 +0100 |
| commit | d6bc72cd477ed6fe8b95782b26a2e0fc92711395 (patch) | |
| tree | 6996e39182b97573b1cdecaeb7c8c8a3f58c1e77 /mathcomp/odd_order/PFsection7.v | |
| parent | 11e539dae1bfe8bc67fc7bd1eb65ee3b4c29f813 (diff) | |
| parent | f3ce9ace4b55654d6240db9eb41a6de3c488f0d9 (diff) | |
Merge pull request #164 from CohenCyril/linting
linting of the whole library
Diffstat (limited to 'mathcomp/odd_order/PFsection7.v')
| -rw-r--r-- | mathcomp/odd_order/PFsection7.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/odd_order/PFsection7.v b/mathcomp/odd_order/PFsection7.v index 455681c..559ed7c 100644 --- a/mathcomp/odd_order/PFsection7.v +++ b/mathcomp/odd_order/PFsection7.v @@ -66,7 +66,7 @@ rewrite (DadeJ ddA) // cardJg; congr (_ * _). rewrite big_imset /= => [|z y0 _ _ /=]; last exact: conjg_inj. by apply: eq_bigr => u Hu; rewrite -conjMg cfunJ // (subsetP sLG). Qed. -Definition invDade alpha := Cfun 1 (invDade_subproof alpha). +Definition invDade alpha := Cfun 1 (invDade_subproof alpha). Local Notation "alpha ^\rho" := (invDade alpha). @@ -426,7 +426,7 @@ split=> // [ | chi /irrP[t def_chi] o_chiSnu]. have hu: h * u = e^-1 * (h - 1) by rewrite mulrCA (mulrBr h) mulr1 divff. have ->: '[(nu zeta)^\rho] = u * a ^+ 2 - v * a *+ 2 + w. have defT1: perm_eq calT [:: phi, Ind1H, zeta & S2]. - by rewrite defT defS1 (perm_catCA [::_ ; _] phi). + by rewrite defT defS1 (perm_catCA [:: _; _] phi). have [c ua _ ->] := invDade_seqInd_sum (nu zeta) defT1. have def_c xi: xi \in calS -> c xi = '[xi, zeta]. move=> S2xi; rewrite /c mulrC -{1}[xi]scale1r -(mulVf nz_phi1) -!scalerA. |