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 | |
| 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')
| -rw-r--r-- | tactics/auto.ml | 4 | ||||
| -rw-r--r-- | tactics/dhyp.ml | 4 | ||||
| -rw-r--r-- | tactics/equality.ml | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 32c256ad35..10de3ab493 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -163,14 +163,14 @@ let add_hint dbname hintlist = let cache_autohint (_,(name,hintlist)) = try add_hint name hintlist with _ -> anomaly "Auto.add_hint" -let specification_autohint x = x +let export_autohint x = Some x let (inAutoHint,outAutoHint) = declare_object ("AUTOHINT", { load_function = (fun _ -> ()); cache_function = cache_autohint; open_function = cache_autohint; - specification_function = specification_autohint }) + export_function = export_autohint }) (**************************************************************************) (* The "Hint" vernacular command *) diff --git a/tactics/dhyp.ml b/tactics/dhyp.ml index 938ead22f0..628c337f90 100644 --- a/tactics/dhyp.ml +++ b/tactics/dhyp.ml @@ -187,7 +187,7 @@ let cache_dd (_,(na,dd)) = [< 'sTR"The code which adds destructor hints broke;"; 'sPC; 'sTR"this is not supposed to happen" >] -let specification_dd x = x +let export_dd x = Some x type destructor_data_object = identifier * destructor_data @@ -197,7 +197,7 @@ let ((inDD : destructor_data_object->obj), { load_function = (fun _ -> ()); cache_function = cache_dd; open_function = cache_dd; - specification_function = specification_dd }) + export_function = export_dd }) let add_destructor_hint na pat pri code = Lib.add_anonymous_leaf 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 _ = |