diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-26 12:57:33 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-11-26 12:57:33 +0000 |
commit | 62b34e20de9770f7d0f63ec8079f496b35d1cc8d (patch) | |
tree | bd08eab251b7753fb43b356ba1320182bcd53d5f | |
parent | c9b8a19b79cccb529799e8370f432506faf4a3e2 (diff) |
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
-rwxr-xr-x | theories/Init/Specif.v | 3 | ||||
-rw-r--r-- | theories/Init/SpecifSyntax.v | 6 |
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). |