diff options
| author | filliatr | 2000-03-16 22:48:15 +0000 |
|---|---|---|
| committer | filliatr | 2000-03-16 22:48:15 +0000 |
| commit | c8dffbbbbf9f3a0bfbf837565359c31cbb52a8d7 (patch) | |
| tree | 3af14d22db501f8a835d1be46b7226351603bcb3 | |
| parent | 2f15f87ee19c3e1a99765aa4b38e0d04731dfc3b (diff) | |
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
| -rw-r--r-- | pretyping/syntax_def.ml | 4 | ||||
| -rw-r--r-- | states/MakeInitial.v | 8 | ||||
| -rw-r--r-- | 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. |