diff options
| author | Pierre-Marie Pédrot | 2016-11-05 18:45:55 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-02-14 17:23:51 +0100 |
| commit | 83607f75a13ea915affa8cfc5bfc14cc944c61ef (patch) | |
| tree | da0c80b672a6929c9d8a01bb9589bc68a28f03b1 /tactics | |
| parent | 214a2ffd2cce3fa24908710af7db528a40345db6 (diff) | |
Find_subterm API using EConstr.
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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) |