diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-10 16:10:05 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-10 16:10:05 +0000 |
| commit | f747aa371fd3995e0978165b4aa1524688b2676f (patch) | |
| tree | 93a34f3dbccefd91313e5dca4bb4ec4236155bf0 /tactics/equality.ml | |
| parent | f2f6ca268be057399b5d9cf1f9b96664af2b02cb (diff) | |
Bugs lies a la confusion load/open et a un open abusivement recursif dans library
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@839 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 6d4bc8d55..3943cc07e 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1582,7 +1582,6 @@ let rules_of_base rbase = List.rev (Gmapl.find rbase !rew_tab) (*Functions necessary to the library object declaration*) let load_autorewrite_rule _ = () -let open_autorewrite_rule _ = () let cache_autorewrite_rule (_,(rbase,lrl)) = add_list_rules rbase lrl let specification_autorewrite_rule x = x @@ -1591,7 +1590,7 @@ let (in_autorewrite_rule,out_autorewrite_rule)= Libobject.declare_object ("AUTOREWRITE_RULE", { Libobject.load_function = load_autorewrite_rule; - Libobject.open_function = open_autorewrite_rule; + Libobject.open_function = cache_autorewrite_rule; Libobject.cache_function = cache_autorewrite_rule; Libobject.specification_function = specification_autorewrite_rule }) |