From e565f8d9bebd4fd681c34086d5448dbaebc11976 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Thu, 19 Nov 2020 18:33:21 +0100
Subject: Removing duplicate clears and turning the warning into an error

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

(limited to 'mathcomp/algebra/poly.v')

diff --git a/mathcomp/algebra/poly.v b/mathcomp/algebra/poly.v
index e3de209..c413171 100644
--- a/mathcomp/algebra/poly.v
+++ b/mathcomp/algebra/poly.v
@@ -2510,7 +2510,7 @@ have [|q' def_q] := factor_theorem q z _; last first.
   by exists q'; rewrite big_cons mulrA -def_q.
 rewrite {p}def_p in rpz.
 elim/last_ind: rs drs rpz => [|rs t IHrs] /=; first by rewrite big_nil mulr1.
-rewrite all_rcons => /andP[/andP[/eqP czt Uzt] /IHrs {IHrs}IHrs].
+rewrite all_rcons => /andP[/andP[/eqP czt Uzt] /IHrs{}IHrs].
 rewrite -cats1 big_cat big_seq1 /= mulrA rootE hornerM_comm; last first.
   by rewrite /comm_poly hornerXsubC mulrBl mulrBr czt.
 rewrite hornerXsubC -opprB mulrN oppr_eq0 -(mul0r (t - z)).
-- 
cgit v1.2.3