diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-30 00:14:17 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-30 00:14:17 +0000 |
| commit | ffd14d29ba11cffd409f4dced7f23ad5afcb2111 (patch) | |
| tree | 984cc7e532ab1757bf0608dba9f31e1a4b32f7db /contrib/extraction | |
| parent | 9ef6ebf95fb55f1d078454fef129be809aa4a431 (diff) | |
evite certaines eta-expansions cavalieres
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7629 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/extraction')
| -rw-r--r-- | contrib/extraction/extraction.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 16d85a3f9..6bc667339 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -581,7 +581,9 @@ and extract_cst_app env mle mlt kn args = (* Different situations depending of the number of arguments: *) if ls = 0 then put_magic_if magic2 head else if List.mem true s then - if la >= ls then put_magic_if (magic2 && not magic1) (MLapp (head, mla)) + if la >= ls || not (List.mem false s) + then + put_magic_if (magic2 && not magic1) (MLapp (head, mla)) else (* Not enough arguments. We complete via eta-expansion. *) let ls' = ls-la in |