aboutsummaryrefslogtreecommitdiff
path: root/mathcomp/odd_order/BGappendixC.v
diff options
context:
space:
mode:
authorCyril Cohen2018-02-06 19:36:53 +0100
committerGitHub2018-02-06 19:36:53 +0100
commitd6bc72cd477ed6fe8b95782b26a2e0fc92711395 (patch)
tree6996e39182b97573b1cdecaeb7c8c8a3f58c1e77 /mathcomp/odd_order/BGappendixC.v
parent11e539dae1bfe8bc67fc7bd1eb65ee3b4c29f813 (diff)
parentf3ce9ace4b55654d6240db9eb41a6de3c488f0d9 (diff)
Merge pull request #164 from CohenCyril/linting
linting of the whole library
Diffstat (limited to 'mathcomp/odd_order/BGappendixC.v')
-rw-r--r--mathcomp/odd_order/BGappendixC.v2
1 files changed, 1 insertions, 1 deletions
diff --git a/mathcomp/odd_order/BGappendixC.v b/mathcomp/odd_order/BGappendixC.v
index f8b9137..3cfb101 100644
--- a/mathcomp/odd_order/BGappendixC.v
+++ b/mathcomp/odd_order/BGappendixC.v
@@ -370,7 +370,7 @@ have [q_gt4 | q_le4] := ltnP 4 q.
rewrite natrM real_ler_distl ?rpredB ?rpredM ?rpred_nat // => /andP[lb_Pe _].
rewrite -ltC_nat -(ltr_pmul2l (gt0CG P)) {lb_Pe}(ltr_le_trans _ lb_Pe) //.
rewrite ltr_subr_addl (@ler_lt_trans _ ((p ^ q.-1)%:R ^+ 2)) //; last first.
- rewrite -!natrX ltC_nat ltn_sqr oU ltn_divRL ?dvdn_pred_predX //.
+ rewrite -!natrX ltC_nat ltn_sqr oU ltn_divRL ?dvdn_pred_predX //.
rewrite -(subnKC qgt1) /= -!subn1 mulnBr muln1 -expnSr.
by rewrite ltn_sub2l ?(ltn_exp2l 0) // prime_gt1.
rewrite -mulrDr -natrX -expnM muln2 -subn1 doubleB -addnn -addnBA // subn2.