diff options
| author | Laurent Théry | 2020-11-02 16:44:52 +0100 |
|---|---|---|
| committer | GitHub | 2020-11-02 16:44:52 +0100 |
| commit | f980c1a579988325efcc5071a8067380a870e403 (patch) | |
| tree | 052a29fe3debcf66f6d22da772d92e14da3dc1d0 /mathcomp | |
| parent | a180734646304c9dbb4dedc01240b41f46958e24 (diff) | |
| parent | 486e08591c443093cdb602de7f603f84df72be42 (diff) | |
Merge pull request #483 from CohenCyril/permSleq1
Adding lemma PermSleq1 to perm.v
Diffstat (limited to 'mathcomp')
| -rw-r--r-- | mathcomp/fingroup/perm.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/mathcomp/fingroup/perm.v b/mathcomp/fingroup/perm.v index ebd4230..5775e34 100644 --- a/mathcomp/fingroup/perm.v +++ b/mathcomp/fingroup/perm.v @@ -640,6 +640,9 @@ Proof. by move=> g; apply/permP; case. Qed. Lemma permS1 : all_equal_to (1 : 'S_1). Proof. by move=> g; apply/permP => i; rewrite !ord1. Qed. +Lemma permS01 n : n <= 1 -> all_equal_to (1 : 'S_n). +Proof. by case: n => [|[|]//=] _ g; rewrite (permS0, permS1). Qed. + Section CastSn. Definition cast_perm m n (eq_mn : m = n) (s : 'S_m) := |