From 05afd04095e35d77ca135bd2c1cb8d303ea2d6a8 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 24 Nov 2016 18:18:17 +0100
Subject: Ltac now uses evar-based constrs.

---
 plugins/decl_mode/ppdecl_proof.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'plugins/decl_mode')

diff --git a/plugins/decl_mode/ppdecl_proof.ml b/plugins/decl_mode/ppdecl_proof.ml
index 59a0bb5a2d..93b98263e6 100644
--- a/plugins/decl_mode/ppdecl_proof.ml
+++ b/plugins/decl_mode/ppdecl_proof.ml
@@ -206,6 +206,8 @@ let pr_glob_proof_instr pconstr1 pconstr2 ptac (instr : glob_proof_instr) =
      instr
 
 let pr_proof_instr pconstr1 pconstr2 ptac (instr : proof_instr) =
+  let pconstr1 c = pconstr1 (EConstr.of_constr c) in
+  let pconstr2 c = pconstr2 (EConstr.of_constr c) in
   pr_gen_proof_instr
     (fun st -> pr_statement pconstr1 st)
     pconstr2
-- 
cgit v1.2.3