From f11fc1871babffd64e9d3be99197f91a0dfc8b69 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 22 Jul 2010 21:06:23 +0000 Subject: Made notations for exists, exists! and notations of Utf8.v recursive notations git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13317 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Program/Syntax.v | 9 --------- 1 file changed, 9 deletions(-) (limited to 'theories/Program/Syntax.v') diff --git a/theories/Program/Syntax.v b/theories/Program/Syntax.v index 2c5fb79c56..bb52a01030 100644 --- a/theories/Program/Syntax.v +++ b/theories/Program/Syntax.v @@ -51,15 +51,6 @@ Implicit Arguments Vcons [[A] [n]]. (** Treating n-ary exists *) -Notation " 'exists' x y , p" := (ex (fun x => (ex (fun y => p)))) - (at level 200, x ident, y ident, right associativity) : type_scope. - -Notation " 'exists' x y z , p" := (ex (fun x => (ex (fun y => (ex (fun z => p)))))) - (at level 200, x ident, y ident, z ident, right associativity) : type_scope. - -Notation " 'exists' x y z w , p" := (ex (fun x => (ex (fun y => (ex (fun z => (ex (fun w => p)))))))) - (at level 200, x ident, y ident, z ident, w ident, right associativity) : type_scope. - Tactic Notation "exists" constr(x) := exists x. Tactic Notation "exists" constr(x) constr(y) := exists x ; exists y. Tactic Notation "exists" constr(x) constr(y) constr(z) := exists x ; exists y ; exists z. -- cgit v1.2.3