diff options
author | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-09 21:57:29 +0000 |
---|---|---|
committer | pboutill <pboutill@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-08-09 21:57:29 +0000 |
commit | ec3bff58d151ff804866175e907664d1fba3c600 (patch) | |
tree | 08e546bc516217e0091fa3d19e3a829fe441b234 /pretyping/recordops.ml | |
parent | a234672e9d669397b40b59254c482f49007000df (diff) |
Unification in Evar_conv uses an abstract machine state
It uses a term in front of a stack instead of a term in front of a list of applied
terms. From outside of eq_appr_x nothing should have changed.
Nasty evar instantiation bug
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15719 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/recordops.ml')
-rw-r--r-- | pretyping/recordops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index 3a300ff8b..4f7d06e39 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -341,7 +341,7 @@ let is_open_canonical_projection env sigma (c,args) = try let n = find_projection_nparams (global_of_constr c) in try - let arg = whd_betadeltaiota env sigma (List.nth args n) in + let arg = whd_betadeltaiota env sigma (stack_nth args n) in let hd = match kind_of_term arg with App (hd, _) -> hd | _ -> arg in not (isConstruct hd) with Failure _ -> false |