aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCyril Cohen2018-10-24 16:57:13 +0200
committerCyril Cohen2018-12-11 11:01:20 +0100
commitfb4948fabff8143e1a47e3943cd1fecb75867689 (patch)
tree019921aea1ec94c1a27d34594914393f603f4cd3
parent67ccc34eb6f05383e0e7bd90c7df9e4fb51f2a87 (diff)
fix TFAE
-rw-r--r--mathcomp/ssreflect/seq.v10
1 files changed, 5 insertions, 5 deletions
diff --git a/mathcomp/ssreflect/seq.v b/mathcomp/ssreflect/seq.v
index ba1f969..e625807 100644
--- a/mathcomp/ssreflect/seq.v
+++ b/mathcomp/ssreflect/seq.v
@@ -2800,11 +2800,6 @@ Definition all_iff (P0 : Prop) (Ps : seq Prop) : Prop :=
if Qs is Q :: Qs then all_iff_and (P -> Q) (aux Q Qs)
else P -> P0 : Prop) P0 Ps.
-(* This means "the following are all equivalent: P0, ... Pn" *)
-Notation "[ '<->' P0 ; P1 ; .. ; Pn ]" := (all_iff P0 (P1 :: .. [:: Pn] ..))
- (at level 0, format "[ '<->' '[' P0 ; '/' P1 ; '/' .. ; '/' Pn ']' ]")
- : form_scope.
-
Lemma all_iffLR P0 Ps : all_iff P0 Ps ->
forall m n, nth P0 (P0 :: Ps) m -> nth P0 (P0 :: Ps) n.
Proof.
@@ -2838,6 +2833,11 @@ Arguments all_iffLR {P0 Ps}.
Arguments all_iffP {P0 Ps}.
Coercion all_iffP : all_iff >-> Funclass.
+(* This means "the following are all equivalent: P0, ... Pn" *)
+Notation "[ '<->' P0 ; P1 ; .. ; Pn ]" := (all_iff P0 (P1 :: .. [:: Pn] ..))
+ (at level 0, format "[ '<->' '[' P0 ; '/' P1 ; '/' .. ; '/' Pn ']' ]")
+ : form_scope.
+
Section All2.
Context {T U : Type} (p : T -> U -> bool).