From c6b7e7121533362b812d4360c19ae01f3f117351 Mon Sep 17 00:00:00 2001 From: herbelin Date: Tue, 23 Dec 2003 18:38:35 +0000 Subject: Finalement, espacement autour du ':' pour a la fois exists, forall et fun git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5135 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories7/Init/Logic.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories7') diff --git a/theories7/Init/Logic.v b/theories7/Init/Logic.v index ea8fb60abd..318b588a89 100755 --- a/theories7/Init/Logic.v +++ b/theories7/Init/Logic.v @@ -131,7 +131,7 @@ Notation "'EX' x | p" := (ex ? [x]p) 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, format - "'exists' '/ ' x : t , '/ ' p"). + "'exists' '/ ' x : t , '/ ' p"). V7only [ Notation Ex2 := (ex2 ?). ]. Notation "'EX' x | p & q" := (ex2 ? [x]p [x]q) @@ -141,7 +141,7 @@ 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, format - "'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']'"). + "'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']'"). V7only [Notation All := (all ?). Notation "'ALL' x | p" := (all ? [x]p) -- cgit v1.2.3