diff options
| author | Anton Trunov | 2019-05-28 22:57:38 +0300 |
|---|---|---|
| committer | Anton Trunov | 2019-05-28 23:56:19 +0300 |
| commit | eac1d28204c93f082771dedb90fc5a1edec6e6f8 (patch) | |
| tree | 1d3709a7e13e1db2508253213ee690af1e222d2c /mathcomp/fingroup | |
| parent | 748d716efb2f2f75946c8386e441ce1789806a39 (diff) | |
Add eqsP view to destruct not only x == y, but also y == x
Diffstat (limited to 'mathcomp/fingroup')
| -rw-r--r-- | mathcomp/fingroup/perm.v | 2 |
1 files changed, 1 insertions, 1 deletions
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. |