diff options
| author | letouzey | 2001-09-18 17:19:09 +0000 |
|---|---|---|
| committer | letouzey | 2001-09-18 17:19:09 +0000 |
| commit | f494f444ca06a573713aede990ba93a58ea4cf13 (patch) | |
| tree | d6d66b1c526fcba989462ab3da0a6b1babb24a8d /contrib/extraction/Extraction.v | |
| parent | 0e3358ba241414b2ec2c3448498a9fa69b2245e1 (diff) | |
travail sur le Extract Constant
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1986 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction/Extraction.v')
| -rw-r--r-- | contrib/extraction/Extraction.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/contrib/extraction/Extraction.v b/contrib/extraction/Extraction.v index bfe459b18d..f32b3e96db 100644 --- a/contrib/extraction/Extraction.v +++ b/contrib/extraction/Extraction.v @@ -36,6 +36,11 @@ Grammar vernac vernac : ast := [ "Extract" "Constant" qualidarg($x) "=>" idorstring($y) "." ] -> [ (EXTRACT_CONSTANT $x $y) ] +| extract_inlined_constant + [ "Extract" "Inlined" "Constant" qualidarg($x) + "=>" idorstring($y) "." ] + -> [ (EXTRACT_INLINED_CONSTANT $x $y) ] + | extract_inductive [ "Extract" "Inductive" qualidarg($x) "=>" mindnames($y) "."] -> [ (EXTRACT_INDUCTIVE $x $y) ] |