diff options
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 3943cc07e..6d1cc5a69 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1583,7 +1583,7 @@ let rules_of_base rbase = List.rev (Gmapl.find rbase !rew_tab) (*Functions necessary to the library object declaration*) let load_autorewrite_rule _ = () let cache_autorewrite_rule (_,(rbase,lrl)) = add_list_rules rbase lrl -let specification_autorewrite_rule x = x +let export_autorewrite_rule x = Some x (*Declaration of the AUTOREWRITE_RULE library object*) let (in_autorewrite_rule,out_autorewrite_rule)= @@ -1592,7 +1592,7 @@ let (in_autorewrite_rule,out_autorewrite_rule)= { Libobject.load_function = load_autorewrite_rule; Libobject.open_function = cache_autorewrite_rule; Libobject.cache_function = cache_autorewrite_rule; - Libobject.specification_function = specification_autorewrite_rule }) + Libobject.export_function = export_autorewrite_rule }) (* Semantic of the HintRewrite vernacular command *) let _ = |