diff options
| author | Pierre Letouzey | 2016-06-10 20:49:07 +0200 |
|---|---|---|
| committer | Pierre Letouzey | 2016-06-10 20:49:07 +0200 |
| commit | 5a6d7d842d55c0f9cd34498445fc1c09365ac056 (patch) | |
| tree | b5337dd9b1ae1484dcd2b78307e6d605d2865e7e /plugins/funind | |
| parent | cc0d765b70661d7f0a1a6bc5784597f21c7d331a (diff) | |
| parent | 282914c00d29565ec0fbe9d3a89163f9d3cb5141 (diff) | |
Merge branch 'pack-plugins'
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/recdef.ml | 2 | ||||
| -rw-r--r-- | plugins/funind/recdef_plugin.mlpack (renamed from plugins/funind/recdef_plugin.mllib) | 1 |
2 files changed, 1 insertions, 2 deletions
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 80866e8b8c..95b4967faa 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -1529,7 +1529,7 @@ let recursive_definition is_mes function_name rec_impls type_of_f r rec_arg_num let hook _ _ = let term_ref = Nametab.locate (qualid_of_ident term_id) in let f_ref = declare_f function_name (IsProof Lemma) arg_types term_ref in - let _ = Table.extraction_inline true [Ident (Loc.ghost,term_id)] in + let _ = Extraction_plugin.Table.extraction_inline true [Ident (Loc.ghost,term_id)] in (* message "start second proof"; *) let stop = try com_eqn (List.length res_vars) equation_id functional_ref f_ref term_ref (subst_var function_name equation_lemma_type); diff --git a/plugins/funind/recdef_plugin.mllib b/plugins/funind/recdef_plugin.mlpack index ec1f5436ca..2b443f2a1b 100644 --- a/plugins/funind/recdef_plugin.mllib +++ b/plugins/funind/recdef_plugin.mlpack @@ -8,4 +8,3 @@ Invfun Indfun Merge G_indfun -Recdef_plugin_mod |