From fafd4dac5315e1d4e071b0044a50a16360b31964 Mon Sep 17 00:00:00 2001 From: Cyril Cohen Date: Thu, 23 Nov 2017 16:33:36 +0100 Subject: running semi-automated linting on the whole library --- mathcomp/odd_order/BGsection7.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mathcomp/odd_order/BGsection7.v') diff --git a/mathcomp/odd_order/BGsection7.v b/mathcomp/odd_order/BGsection7.v index 71e800e..5f803b0 100644 --- a/mathcomp/odd_order/BGsection7.v +++ b/mathcomp/odd_order/BGsection7.v @@ -770,9 +770,9 @@ End NormedConstrained. Proposition plength_1_normed_constrained p A : A :!=: 1 -> A \in 'E*_p(G) -> (forall M, M \proper G -> p.-length_1 M) -> normed_constrained A. -Proof. +Proof. move=> ntA EpA pl1subG. -case/pmaxElemP: (EpA); case/pElemP=> sAG; case/and3P=> pA cAA _ _. +case/pmaxElemP: (EpA); case/pElemP=> sAG; case/and3P=> pA cAA _ _. have prA: A \proper G := sub_proper_trans cAA (mFT_cent_proper ntA). split=> // X Y sAX prX; case/setIdP; case/andP=> sYX p'Y nYA. have pl1X := pl1subG _ prX; have solX := mFT_sol prX. -- cgit v1.2.3