diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-21 23:28:17 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-12-21 23:28:17 +0000 |
| commit | d34b971804d3f0bd2bacca27b4fb6058a653a2bf (patch) | |
| tree | 11a44464eb4ab815ef6e5aebc357d14457bd06ae /theories7 | |
| parent | d995ecaf5ba72a7b026f250f75ccd7ef195d6591 (diff) | |
Affichage sur le modèle du forall pour le exists
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5125 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories7')
| -rwxr-xr-x | theories7/Init/Logic.v | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/theories7/Init/Logic.v b/theories7/Init/Logic.v index 5881186de..ea8fb60ab 100755 --- a/theories7/Init/Logic.v +++ b/theories7/Init/Logic.v @@ -130,7 +130,8 @@ Notation "'EX' x | p" := (ex ? [x]p) V8only "'exists' x , p" (at level 200, x ident, p at level 99). Notation "'EX' x : t | p" := (ex ? [x:t]p) (at level 10, p at level 8) : type_scope - V8only "'exists' x : t , p" (at level 200, x ident, p at level 99). + V8only "'exists' x : t , p" (at level 200, x ident, p at level 99, format + "'exists' '/ ' x : t , '/ ' p"). V7only [ Notation Ex2 := (ex2 ?). ]. Notation "'EX' x | p & q" := (ex2 ? [x]p [x]q) @@ -139,7 +140,8 @@ Notation "'EX' x | p & q" := (ex2 ? [x]p [x]q) Notation "'EX' x : t | p & q" := (ex2 ? [x:t]p [x:t]q) (at level 10, p, q at level 8) : type_scope V8only "'exists2' x : t , p & q" - (at level 200, x ident, t at level 200, p, q at level 99). + (at level 200, x ident, t at level 200, p, q at level 99, format + "'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']'"). V7only [Notation All := (all ?). Notation "'ALL' x | p" := (all ? [x]p) |