diff options
| author | letouzey | 2001-12-18 18:07:11 +0000 |
|---|---|---|
| committer | letouzey | 2001-12-18 18:07:11 +0000 |
| commit | ebfec6cf6af367f6f6e2aa54c6ad4aa37711de3c (patch) | |
| tree | 278b5459e420326006485f1f94c2192e94079779 | |
| parent | 2fb93d2f84f7662bab351f22c52201dcf448705e (diff) | |
Pour ocamlweb ...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2319 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/extraction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 5e3b0244da..4db7ce6227 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -904,7 +904,7 @@ and extract_inductive_declaration sp = (*s Extraction of a global reference i.e. a constant or an inductive. *) let false_rec_sp = path_of_string "Coq.Init.Specif.False_rec" -let false_rec_e = MLlam (prop_name, MLexn "False_rec") +let false_rec_e = MLlam (prop_name, MLexn "[False_rec]") let extract_declaration r = match r with | ConstRef sp when sp = false_rec_sp -> Dglob (r, false_rec_e) |