From 42db44ce8df9f24d90c321d57e81e2d5bf83bd48 Mon Sep 17 00:00:00 2001 From: Anton Trunov Date: Wed, 29 May 2019 15:17:39 +0300 Subject: Replace eqVneq with eqPsym Also changed eqsVneq. --- 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 a1bb896..f1ff532 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; case: eqPsym. +by rewrite add1n eqSS; case: eqVneq. Qed. End LiftPerm. -- cgit v1.2.3