diff options
| author |  Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 20:18:58 +0100 |
|---|---|---|
| committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2015-01-11 09:49:32 +0100 |
| commit | 063fbe9077e6b75f327dd105774c3b3b77bda5c9 (patch) | |
| tree | 8d0cf02c3bffe27073084f55b899db05461e1299 /plugins/extraction/extraction.mli | |
| parent | d15d8cc0ce584a6d80d878faf84314c6712ccf69 (diff) | |
Extraction : some more support functions for a future "Extraction Compute"
Diffstat (limited to 'plugins/extraction/extraction.mli')
| -rw-r--r-- | plugins/extraction/extraction.mli | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/plugins/extraction/extraction.mli b/plugins/extraction/extraction.mli index 8d3cf76fd..940e264c4 100644 --- a/plugins/extraction/extraction.mli +++ b/plugins/extraction/extraction.mli @@ -18,6 +18,8 @@ val extract_constant : env -> constant -> constant_body -> ml_decl val extract_constant_spec : env -> constant -> constant_body -> ml_spec +(** For extracting "module ... with ..." declaration *) + val extract_with_type : env -> constr -> ( Id.t list * ml_type ) option val extract_fixpoint : @@ -25,6 +27,10 @@ val extract_fixpoint : val extract_inductive : env -> mutual_inductive -> ml_ind +(** For extraction compute *) + +val extract_constr : env -> constr -> ml_ast * ml_type + (*s Is a [ml_decl] or a [ml_spec] logical ? *) val logical_decl : ml_decl -> bool |