From 2fb6de71c225ebd8ebada632b3f45ee9c878ddc9 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 25 Nov 2002 12:11:45 +0000
Subject: Oubli

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3277 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/DatatypesSyntax.v | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/theories/Init/DatatypesSyntax.v b/theories/Init/DatatypesSyntax.v
index f1f7bba8a0..3b26f6cbbd 100644
--- a/theories/Init/DatatypesSyntax.v
+++ b/theories/Init/DatatypesSyntax.v
@@ -14,12 +14,13 @@ Require Export Datatypes.
 
 Infix LEFTA 4 "+" sum.
 Infix LEFTA 3 "*" prod.
-Notation "( x , y )" := (pair ? ? x y) (at level 0, x, y at level 10).
+Notation "( x , y )" := (pair ? ? x y) (at level 0).
 Notation Fst := (fst ? ?).
 Notation Snd := (snd ? ?).
 
 (** Parsing only of things in [Datatypes.v] *)
 
+Notation "< A , B > ( x , y )" := (pair A B x y) (at level 0, only parsing).
 Notation "< A , B > 'Fst' ( p )" := (fst A B p) (at level 1, only parsing).
 Notation "< A , B > 'Snd' ( p )" := (snd A B p) (at level 1, only parsing).
 
-- 
cgit v1.2.3