diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-02-21 18:39:00 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-02-21 18:39:00 +0000 |
| commit | e2c14a70ed985b45a39d3bed7c2840fce33fff08 (patch) | |
| tree | 5ba311b0ab1bd87ece1673eb08a6780f9b21f575 /contrib/subtac/eterm.ml | |
| parent | fabf87214389e6fd2e784e81e51bd36a779aa3dc (diff) | |
Work with binder lists, problem of tycons
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8073 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/subtac/eterm.ml')
| -rw-r--r-- | contrib/subtac/eterm.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/contrib/subtac/eterm.ml b/contrib/subtac/eterm.ml index 3574cfeae..99727e5f2 100644 --- a/contrib/subtac/eterm.ml +++ b/contrib/subtac/eterm.ml @@ -43,6 +43,7 @@ let subst_evars evs n t = (* mkVar (id_of_string ("Evar" ^ string_of_int k));*) mkRel (evar_index k + depth) in + (* Evar arguments are created in inverse order *) let args = List.rev_map (map_constr_with_binders succ substrec depth) (Array.to_list args) in mkApp (ex, Array.of_list args) with Not_found -> |