From bdd2b322d26419ee9944b804e580d5b039631569 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 11 Oct 2020 14:37:19 +0200
Subject: Fix #13169: vm_compute has existential crisis.

We simply use evars instance in the right order while reading back VM values.
---
 pretyping/vnorm.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pretyping')

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
   | _ ->
-- 
cgit v1.2.3