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

---
 tactics/leminv.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tactics/leminv.ml')

diff --git a/tactics/leminv.ml b/tactics/leminv.ml
index 62e78b588..609fa1be8 100644
--- a/tactics/leminv.ml
+++ b/tactics/leminv.ml
@@ -294,7 +294,7 @@ let lemInvIn id c ids =
     let intros_replace_ids =
       let concl = Proofview.Goal.concl gl in
       let sigma = project gl in
-      let nb_of_new_hyp = nb_prod sigma (EConstr.of_constr concl) - List.length ids in
+      let nb_of_new_hyp = nb_prod sigma concl - List.length ids in
       if nb_of_new_hyp < 1  then
         intros_replacing ids
       else
-- 
cgit v1.2.3