From c8dffbbbbf9f3a0bfbf837565359c31cbb52a8d7 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Thu, 16 Mar 2000 22:48:15 +0000
Subject: Syntactic Definition n'etaient pas correctemenet importees

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@320 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/syntax_def.ml    | 4 ++--
 states/MakeInitial.v       | 8 ++++----
 theories/Logic/Eqdep_dec.v | 4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/pretyping/syntax_def.ml b/pretyping/syntax_def.ml
index 6c5ef8c4fe..606e8d9861 100644
--- a/pretyping/syntax_def.ml
+++ b/pretyping/syntax_def.ml
@@ -29,8 +29,8 @@ let open_syntax_constant (sp,_) =
 let (in_syntax_constant, out_syntax_constant) =
   let od = {
     cache_function = cache_syntax_constant;
-    load_function = (fun _ -> ());
-    open_function = open_syntax_constant;
+    load_function = cache_syntax_constant;
+    open_function = (fun _ -> ());
     specification_function = (fun x -> x) } 
   in
   declare_object ("SYNTAXCONSTANT", od)
diff --git a/states/MakeInitial.v b/states/MakeInitial.v
index 73ad27a0d6..24bad16b76 100644
--- a/states/MakeInitial.v
+++ b/states/MakeInitial.v
@@ -1,4 +1,4 @@
-Require Prelude.
-Require Logic_Type.
-Require Logic_TypeSyntax.
-Require Equality.
+Require Export Prelude.
+Require Export Logic_Type.
+Require Export Logic_TypeSyntax.
+Require Export Equality.
diff --git a/theories/Logic/Eqdep_dec.v b/theories/Logic/Eqdep_dec.v
index 29a8b0a66a..2aba5408fc 100644
--- a/theories/Logic/Eqdep_dec.v
+++ b/theories/Logic/Eqdep_dec.v
@@ -140,9 +140,9 @@ Rewrite eq_eqT_bij.
 Elim (eq2eqT p) using K_dec.
 Intros.
 Case (H x0 y); Intros.
-Elim e; Left ; Reflexivity.
+Elim y0; Left ; Reflexivity.
 
-Right ; Red; Intro neq; Apply n; Elim neq; Reflexivity.
+Right ; Red; Intro neq; Apply y0; Elim neq; Reflexivity.
 
 Trivial.
 Save.
-- 
cgit v1.2.3