diff options
| author | Christian Doczkal | 2020-06-18 11:19:03 +0200 |
|---|---|---|
| committer | Christian Doczkal | 2020-06-18 16:46:23 +0200 |
| commit | 7fd6f9ba051ecc7be7bd95ca3e31bb1a798598ba (patch) | |
| tree | 618911dc534dec482afef6aef15d032073a59f70 | |
| parent | c5008933e4f17c122a0b23e6e6cfe8d198423214 (diff) | |
conform to 80 chars limit
| -rw-r--r-- | mathcomp/ssreflect/finset.v | 3 | ||||
| -rw-r--r-- | mathcomp/ssreflect/fintype.v | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/mathcomp/ssreflect/finset.v b/mathcomp/ssreflect/finset.v index 351c472..f4c1dd5 100644 --- a/mathcomp/ssreflect/finset.v +++ b/mathcomp/ssreflect/finset.v @@ -834,7 +834,8 @@ apply: (iffP idP) => [|[x ->]]; last by rewrite cards1. by have [[|x []]// _] := cards_eqP; exists x; apply/setP => y; rewrite !inE. Qed. -Lemma cards2P A : reflect (exists x y : T, x != y /\ A = [set x; y]) (#|A| == 2). +Lemma cards2P A : reflect (exists x y : T, x != y /\ A = [set x; y]) + (#|A| == 2). Proof. apply: (iffP idP) => [|[x] [y] [xy ->]]; last by rewrite cards2 xy. have [[|x [|y []]]//=] := cards_eqP; rewrite !inE andbT => neq_xy. diff --git a/mathcomp/ssreflect/fintype.v b/mathcomp/ssreflect/fintype.v index 3705530..7e440ab 100644 --- a/mathcomp/ssreflect/fintype.v +++ b/mathcomp/ssreflect/fintype.v @@ -814,7 +814,8 @@ by split=> // z; rewrite !inE => /pred2P[]->. Qed. Lemma card_gt2P A : - reflect (exists x y z, [/\ x \in A, y \in A & z \in A] /\ [/\ x != y, y != z & z != x]) + reflect (exists x y z, + [/\ x \in A, y \in A & z \in A] /\ [/\ x != y, y != z & z != x]) (2 < #|A|). Proof. apply: (iffP card_geqP) => [[s] []|[x] [y] [z] [[xD yD zD] [xDy xDz yDz]]]. |