diff options
| author | affeldt-aist | 2020-05-28 16:24:38 +0200 |
|---|---|---|
| committer | GitHub | 2020-05-28 16:24:38 +0200 |
| commit | 5c67ea2530ba6aaa0dbffaa41e037cfdc9345d00 (patch) | |
| tree | bb22445744384365f6766578a01fae1d5240a81e /mathcomp/ssreflect/tuple.v | |
| parent | 14291b88255b7a1a110c21dec5a3754f25ec8881 (diff) | |
| parent | 37a49513f22a3f792a1ac3241962a7d17455f7e5 (diff) | |
Merge pull request #504 from pi8027/selectors
Revise proofs in ssreflect/*.v
Diffstat (limited to 'mathcomp/ssreflect/tuple.v')
| -rw-r--r-- | mathcomp/ssreflect/tuple.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/ssreflect/tuple.v b/mathcomp/ssreflect/tuple.v index 551dc77..db53235 100644 --- a/mathcomp/ssreflect/tuple.v +++ b/mathcomp/ssreflect/tuple.v @@ -351,8 +351,8 @@ rewrite count_filter -(@eq_count _ (pred1 t)) => [|s /=]; last first. by rewrite isSome_insub; case: eqP=> // ->. elim: n t t_n => [|m IHm] [|x t] //= {IHm}/IHm; move: (iter m _ _) => em IHm. transitivity (x \in T : nat); rewrite // -mem_enum codomE. -elim: (fintype.enum T) (enum_uniq T) => //= y e IHe /andP[/negPf ney]. -rewrite count_cat count_map inE /preim /= {1}/eq_op /= eq_sym => /IHe->. +elim: (fintype.enum T) (enum_uniq T) => //= y e IHe /andP[/negPf ney]. +rewrite count_cat count_map inE /preim /= [in LHS]/eq_op /= eq_sym => /IHe->. by case: eqP => [->|_]; rewrite ?(ney, count_pred0, IHm). Qed. |