diff options
| author | Pierre-Marie Pédrot | 2020-10-11 14:37:19 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-11 14:38:24 +0200 |
| commit | bdd2b322d26419ee9944b804e580d5b039631569 (patch) | |
| tree | 2129443444ce9f490ac2813b33b040624685060d /pretyping | |
| parent | 516a7009b08c443a74ef7f3175fff1337e71b668 (diff) | |
Fix #13169: vm_compute has existential crisis.
We simply use evars instance in the right order while reading back VM values.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/vnorm.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index 900ba0edb9..1420401875 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -218,7 +218,8 @@ and nf_evar env sigma evk stk = let t = List.fold_left fold concl hyps in let t, args = nf_args env sigma args t in let inst, args = Array.chop (List.length hyps) args in - let inst = Array.to_list inst in + (* Evar instances are reversed w.r.t. argument order *) + let inst = Array.rev_to_list inst in let c = mkApp (mkEvar (evk, inst), args) in nf_stk env sigma c t stk | _ -> |