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/ssreflect/finfun.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mathcomp/ssreflect/finfun.v')

diff --git a/mathcomp/ssreflect/finfun.v b/mathcomp/ssreflect/finfun.v
index 0218f6a..1fd1a83 100644
--- a/mathcomp/ssreflect/finfun.v
+++ b/mathcomp/ssreflect/finfun.v
@@ -175,7 +175,7 @@ Proof.
 suffices ffunK f g: (forall x, f x = g x) -> f = finfun g.
   by split=> [/ffunK|] -> //; apply/esym/ffunK.
 case: f => f Dg; rewrite unlock; congr FinfunOf.
-have{Dg} Dg x (aTx : mem_seq (enum aT) x): g x = fun_of_fin_rec f aTx.
+have{} Dg x (aTx : mem_seq (enum aT) x): g x = fun_of_fin_rec f aTx.
   by rewrite -Dg /= (bool_irrelevance (mem_enum _ _) aTx).
 elim: (enum aT) / f (enum_uniq aT) => //= x1 s y f IHf /andP[s'x1 Us] in Dg *.
 rewrite Dg ?eqxx //=; case: eqP => // /eq_axiomK-> /= _.
-- 
cgit v1.2.3