From 83607f75a13ea915affa8cfc5bfc14cc944c61ef Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sat, 5 Nov 2016 18:45:55 +0100
Subject: Find_subterm API using EConstr.

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

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index e294f928eb..22d01e4011 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -2772,7 +2772,7 @@ let generalize_goal_gen env sigma ids i ((occs,c,b),na) t cl =
   let decls,cl = decompose_prod_n_assum i cl in
   let dummy_prod = EConstr.of_constr (it_mkProd_or_LetIn mkProp decls) in
   let newdecls,_ = decompose_prod_n_assum i (subst_term_gen sigma EConstr.eq_constr_nounivs (EConstr.of_constr c) dummy_prod) in
-  let cl',sigma' = subst_closed_term_occ env sigma (AtOccs occs) c (it_mkProd_or_LetIn cl newdecls) in
+  let cl',sigma' = subst_closed_term_occ env sigma (AtOccs occs) (EConstr.of_constr c) (EConstr.of_constr (it_mkProd_or_LetIn cl newdecls)) in
   let na = generalized_name c t ids cl' na in
   let decl = match b with
     | None -> LocalAssum (na,t)
-- 
cgit v1.2.3