diff options
| author | letouzey | 2010-05-21 16:13:58 +0000 |
|---|---|---|
| committer | letouzey | 2010-05-21 16:13:58 +0000 |
| commit | 9545a01076cc7b79d0d3278b1ba12e3249149716 (patch) | |
| tree | b66405b976619de4a3d2d45369c034629c06ac87 /plugins/extraction/table.mli | |
| parent | 63fe9ca9438693fcf4d601c05f77a4db50588b40 (diff) | |
Extract Inductive is now possible toward non-inductive types (e.g. nat => int)
For instance:
Extract Inductive nat => int [ "0" "succ" ]
"(fun fO fS n => if n=0 then fO () else fS (n-1))".
See Extraction.v for more details and caveat.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13025 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/table.mli')
| -rw-r--r-- | plugins/extraction/table.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/plugins/extraction/table.mli b/plugins/extraction/table.mli index f02e73190d..49108cf522 100644 --- a/plugins/extraction/table.mli +++ b/plugins/extraction/table.mli @@ -135,6 +135,9 @@ val is_inline_custom : global_reference -> bool val find_custom : global_reference -> string val find_type_custom : global_reference -> string list * string +val is_custom_match : ml_branch array -> bool +val find_custom_match : ml_branch array -> string + (*s Extraction commands. *) val extraction_language : lang -> unit @@ -143,7 +146,8 @@ val print_extraction_inline : unit -> unit val reset_extraction_inline : unit -> unit val extract_constant_inline : bool -> reference -> string list -> string -> unit -val extract_inductive : reference -> string * string list -> unit +val extract_inductive : + reference -> string -> string list -> string option -> unit val extraction_implicit : reference -> int list -> unit (*s Table of blacklisted filenames *) |