Bug ProjSn + retour de "Notation" pour déclarer les définitions syntaxiques

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

2 files changed, 4 insertions, 5 deletions

diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v
index 46203fe1f..daf7e5d85 100755
--- a/theories/Init/Specif.v
+++ b/theories/Init/Specif.v
@@ -147,9 +147,6 @@ Definition Exc := option.
 Definition value := Some.
 Definition error := None.
 
-Syntactic Definition Error := (error ?).
-Syntactic Definition Value := (value ?).
- 
 Definition except := False_rec. (* for compatibility with previous versions *)
 
 Theorem absurd_set : (A:Prop)(C:Set)A->(~A)->C.
diff --git a/theories/Init/SpecifSyntax.v b/theories/Init/SpecifSyntax.v
index af41b7208..1fd9d9930 100644
--- a/theories/Init/SpecifSyntax.v
+++ b/theories/Init/SpecifSyntax.v
@@ -20,9 +20,11 @@ Notation "{ A } + { B }" := (sumbool A B)
 Notation "A + { B }" := (sumor A B)
   (at level 4, B at level 10, left associativity).
 
-Notation ProjS1 := (projS1 ?).
-Notation ProjS2 := (projS2 ?).
+Notation ProjS1 := (projS1 ? ?).
+Notation ProjS2 := (projS2 ? ?).
 Notation Except := (except ?).
+Notation Error := (error ?).
+Notation Value := (value ?).
 
 Notation "{ x : A  |  P }"       := (sig A [x:A]P)
   (at level 1, x at level 10).