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 --- theories/Init/Logic.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'theories/Init') diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v index 9e755c9288..31ce20ad3f 100755 --- a/theories/Init/Logic.v +++ b/theories/Init/Logic.v @@ -121,14 +121,14 @@ Definition all (A:Type) (P:A -> Prop) := forall x:A, P x. Notation "'exists' x , p" := (ex (fun x => p)) (at level 200, x ident) : type_scope. Notation "'exists' x : t , p" := (ex (fun x:t => p)) - (at level 200, x ident, format "'exists' '/ ' x : t , '/ ' p") + (at level 200, x ident, format "'exists' '/ ' x : t , '/ ' p") : type_scope. Notation "'exists2' x , p & q" := (ex2 (fun x => p) (fun x => q)) (at level 200, x ident, p at level 200) : type_scope. Notation "'exists2' x : t , p & q" := (ex2 (fun x:t => p) (fun x:t => q)) (at level 200, x ident, t at level 200, p at level 200, - format "'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']'") + format "'exists2' '/ ' x : t , '/ ' '[' p & '/' q ']'") : type_scope. -- cgit v1.2.3