From f3ce9ace4b55654d6240db9eb41a6de3c488f0d9 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Tue, 6 Feb 2018 14:04:50 +0100
Subject: fixing things that @ggonthier and @ybertot spotted and some I spotted

---
 mathcomp/odd_order/PFsection7.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mathcomp/odd_order')

diff --git a/mathcomp/odd_order/PFsection7.v b/mathcomp/odd_order/PFsection7.v
index deb1698..559ed7c 100644
--- a/mathcomp/odd_order/PFsection7.v
+++ b/mathcomp/odd_order/PFsection7.v
@@ -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.
-- 
cgit v1.2.3