From d0ee77343eeecae0ad314ea877c60b4dfa77ad41 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Mon, 25 Nov 2002 12:12:06 +0000
Subject: Retablissement SynDef Value/Error

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3278 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 theories/Init/Specif.v       | 3 +++
 theories/Init/SpecifSyntax.v | 2 --
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v
index daf7e5d85b..46203fe1f7 100755
--- a/theories/Init/Specif.v
+++ b/theories/Init/Specif.v
@@ -147,6 +147,9 @@ 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 a617373c82..af41b7208a 100644
--- a/theories/Init/SpecifSyntax.v
+++ b/theories/Init/SpecifSyntax.v
@@ -22,8 +22,6 @@ Notation "A + { B }" := (sumor A B)
 
 Notation ProjS1 := (projS1 ?).
 Notation ProjS2 := (projS2 ?).
-Notation Error  := (error ?).
-Notation Value  := (value ?).
 Notation Except := (except ?).
 
 Notation "{ x : A  |  P }"       := (sig A [x:A]P)
-- 
cgit v1.2.3