diff options
| author | Cyril Cohen | 2018-02-06 14:04:50 +0100 |
|---|---|---|
| committer | Cyril Cohen | 2018-02-06 14:14:36 +0100 |
| commit | f3ce9ace4b55654d6240db9eb41a6de3c488f0d9 (patch) | |
| tree | d44ad1d84bb57b368f6e65fe871ec0c6e5a558eb /mathcomp/solvable/burnside_app.v | |
| parent | fafd4dac5315e1d4e071b0044a50a16360b31964 (diff) | |
fixing things that @ggonthier and @ybertot spotted and some I spotted
Diffstat (limited to 'mathcomp/solvable/burnside_app.v')
| -rw-r--r-- | mathcomp/solvable/burnside_app.v | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mathcomp/solvable/burnside_app.v b/mathcomp/solvable/burnside_app.v index d602d0a..d9010d5 100644 --- a/mathcomp/solvable/burnside_app.v +++ b/mathcomp/solvable/burnside_app.v @@ -75,7 +75,7 @@ Ltac inj_tac := move: (erefl rot_inv); unfold rot_inv; match goal with |- ?X = _ -> injective ?Y => move=> _; let x := get_inv Y X in - apply: (can_inj (g:=x)); move => [val H1] + apply: (can_inj (g:=x)); move=> [val H1] end. Lemma R1_inj : injective R1. @@ -1137,10 +1137,10 @@ Qed. Lemma uniq4_uniq6 : forall x y z t : cube, uniq [:: x; y; z; t] -> exists u, exists v, uniq [:: x; y; z; t; u; v]. Proof. -move=> x y z t Uxt; move: ( cardC (mem [:: x; y; z; t])). +move=> x y z t Uxt; move: (cardC (mem [:: x; y; z; t])). rewrite card_ord (card_uniq_tuple Uxt) => hcard. have hcard2: #|predC (mem [:: x; y; z; t])| = 2. - by apply: ( @addnI 4); rewrite /injective hcard. + by apply: (@addnI 4); rewrite /injective hcard. have: #|predC (mem [:: x; y; z; t])| != 0 by rewrite hcard2. case/existsP=> u Hu; exists u. move: (cardC (mem [:: x; y; z; t; u])); rewrite card_ord => hcard5. |