diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-30 11:32:46 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-30 11:32:46 +0000 |
| commit | 1881da69b1c212c54afc54a1d7e53f3d064a2e4f (patch) | |
| tree | 6bd617c83247a0f4593f3dcc5c146bcb46dd6ba5 | |
| parent | 483e5e59d4a2513f16a6ef1974649cf602509d26 (diff) | |
ocamlweb
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1728 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 744dc5f28..c48580dac 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -160,7 +160,7 @@ let v_of_t env t = match get_arity env t with type binders = (identifier * constr) list (* Convention: right binders give [Rel 1] at the head, like those answered by - decompose_prod. Left binders are the converse. *) + [decompose_prod]. Left binders are the converse. *) let rec lbinders_fold f acc env = function | [] -> acc |