From 7fd6f9ba051ecc7be7bd95ca3e31bb1a798598ba Mon Sep 17 00:00:00 2001 From: Christian Doczkal Date: Thu, 18 Jun 2020 11:19:03 +0200 Subject: conform to 80 chars limit --- mathcomp/ssreflect/finset.v | 3 ++- mathcomp/ssreflect/fintype.v | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'mathcomp') 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]]]. -- cgit v1.2.3