From 9545a01076cc7b79d0d3278b1ba12e3249149716 Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 21 May 2010 16:13:58 +0000 Subject: 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 --- plugins/extraction/g_extraction.ml4 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'plugins/extraction/g_extraction.ml4') diff --git a/plugins/extraction/g_extraction.ml4 b/plugins/extraction/g_extraction.ml4 index f8354f52e..b2256c471 100644 --- a/plugins/extraction/g_extraction.ml4 +++ b/plugins/extraction/g_extraction.ml4 @@ -124,6 +124,7 @@ VERNAC COMMAND EXTEND ExtractionInlinedConstant END VERNAC COMMAND EXTEND ExtractionInductive -| [ "Extract" "Inductive" global(x) "=>" mlname(id) "[" mlname_list(idl) "]" ] - -> [ extract_inductive x (id,idl) ] +| [ "Extract" "Inductive" global(x) "=>" + mlname(id) "[" mlname_list(idl) "]" string_opt(o) ] + -> [ extract_inductive x id idl o ] END -- cgit v1.2.3