From e09f3b44bb381854b647a6d9debdeddbfc49177e Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 20 Nov 2016 22:16:08 +0100
Subject: Proofview.Goal primitive now return EConstrs.

---
 engine/evarutil.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'engine/evarutil.ml')

diff --git a/engine/evarutil.ml b/engine/evarutil.ml
index 2049974456..73286f2c45 100644
--- a/engine/evarutil.ml
+++ b/engine/evarutil.ml
@@ -611,6 +611,7 @@ let clear_hyps_in_evi_main env evdref hyps terms ids =
   (nhyps,terms)
 
 let clear_hyps_in_evi env evdref hyps concl ids =
+  let concl = EConstr.Unsafe.to_constr concl in
   match clear_hyps_in_evi_main env evdref hyps [concl] ids with
   | (nhyps,[nconcl]) -> (nhyps,nconcl)
   | _ -> assert false
-- 
cgit v1.2.3