Duplication temporaire des règles de syntaxe des paires

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5102 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 12 insertions, 1 deletions

diff --git a/theories/Init/Datatypes.v b/theories/Init/Datatypes.v
index 2da0d6c02a..7c199bbf35 100755
--- a/theories/Init/Datatypes.v
+++ b/theories/Init/Datatypes.v
@@ -77,7 +77,18 @@ Inductive prod (A B:Set) : Set :=
 Add Printing Let prod.
 
 Notation "x * y" := (prod x y) : type_scope.
-Notation "x , y" := (pair x y) : core_scope.
+Notation "( x , y )" := (pair x y) : core_scope.
+
+(* Temporary hack *)
+Notation "( x1 , x2 , x3 )" := ((x1,x2),x3) : core_scope.
+Notation "( x1 , x2 , x3 , x4 )" := ((x1,x2),x3,x4) : core_scope.
+Notation "( x1 , x2 , x3 , x4 , x5 )" := ((x1,x2),x3,x4,x5) : core_scope.
+Notation "( x1 , x2 , x3 , x4 , x5 , x6 )"
+  := ((x1,x2),x3,x4,x5,x6) : core_scope.
+Notation "( x1 , x2 , x3 , x4 , x5 , x6 , x7 )"
+  := ((x1,x2),x3,x4,x5,x6,x7) : core_scope.
+Notation "( x1 , x2 , x3 , x4 , x5 , x6 , x7 , x8 )"
+  := ((x1,x2),x3,x4,x5,x6,x7,x8) : core_scope.
 
 Section projections.
    Variables A B : Set.