diff options
Diffstat (limited to 'contrib/extraction/mlutil.mli')
| -rw-r--r-- | contrib/extraction/mlutil.mli | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/contrib/extraction/mlutil.mli b/contrib/extraction/mlutil.mli index 1b8166b58e..02257be77c 100644 --- a/contrib/extraction/mlutil.mli +++ b/contrib/extraction/mlutil.mli @@ -28,15 +28,19 @@ val collect_lams : ml_ast -> identifier list * ml_ast val anonym_lams : ml_ast -> int -> ml_ast +val named_lams : ml_ast -> identifier list -> ml_ast + (*s Utility functions over ML types. [update_args sp vl t] puts [vl] as arguments behind every inductive types [(sp,_)]. *) +val sp_of_r : global_reference -> section_path + +val type_mem_sp : section_path -> ml_type -> bool + val get_tvars : ml_type -> identifier list val update_args : section_path -> ml_type list -> ml_type -> ml_type -val clear_singletons : unit -> unit - (*s Utility functions over ML terms. [occurs n t] checks whether [Rel n] occurs (freely) in [t]. [ml_lift] is de Bruijn lifting. [ml_subst e t] substitutes [e] for [Rel 1] in [t]. *) @@ -65,3 +69,7 @@ val add_ml_decls : val optimize : extraction_params -> ml_decl list -> ml_decl list +exception Impossible + +val kill_prop_aux : ml_ast -> ml_ast * identifier list * int + |