diff options
| author | filliatr | 2000-11-15 07:56:21 +0000 |
|---|---|---|
| committer | filliatr | 2000-11-15 07:56:21 +0000 |
| commit | b2c9129662f55eea46a8937f9fd0cfabc029457a (patch) | |
| tree | fb3cb41fe45c41b58149559228088607621c8007 /tactics/equality.ml | |
| parent | e4639721323887555d278b963b84b11244871632 (diff) | |
methode export
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@851 85f007b7-540e-0410-9357-904b9bb8a0f7
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 3943cc07e4..6d1cc5a691 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 _ = |