From eac1d28204c93f082771dedb90fc5a1edec6e6f8 Mon Sep 17 00:00:00 2001
From: Anton Trunov
Date: Tue, 28 May 2019 22:57:38 +0300
Subject: Add eqsP view to destruct not only x == y, but also y == x

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

(limited to 'mathcomp/fingroup')

diff --git a/mathcomp/fingroup/perm.v b/mathcomp/fingroup/perm.v
index b610c36..c7eaf58 100644
--- a/mathcomp/fingroup/perm.v
+++ b/mathcomp/fingroup/perm.v
@@ -570,7 +570,7 @@ apply/permP=> i; case: (unliftP j i) => [i'|] ->; last first.
 apply: ord_inj; rewrite lift_perm_lift !permE /= eq_sym -if_neg neq_lift.
 rewrite fun_if -val_eqE /= def_k /bump ltn_neqAle andbC.
 case: leqP => [_ | lt_i'm] /=; last by rewrite -if_neg neq_ltn leqW.
-by rewrite add1n eqSS eq_sym; case: eqP.
+by rewrite add1n eqSS; case: eqsP.
 Qed.
 
 End LiftPerm.
-- 
cgit v1.2.3