diff options
| author | Laurence | 2018-12-11 14:05:20 +0100 |
|---|---|---|
| committer | GitHub | 2018-12-11 14:05:20 +0100 |
| commit | fb590b2927a2677616313fa073eb3ab238082d79 (patch) | |
| tree | dbea6d09ebd3dc209580986e274b186b2560fb27 /mathcomp | |
| parent | b2d25dc356c4a2500d861e7d3eb5a272a3072129 (diff) | |
| parent | fb4948fabff8143e1a47e3943cd1fecb75867689 (diff) | |
Merge pull request #260 from CohenCyril/fix_TFAE
fix TFAE
Diffstat (limited to 'mathcomp')
| -rw-r--r-- | mathcomp/ssreflect/seq.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/mathcomp/ssreflect/seq.v b/mathcomp/ssreflect/seq.v index 2c9fd64..a574710 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). |
