diff options
Diffstat (limited to 'pretyping/inductiveops.ml')
| -rw-r--r-- | pretyping/inductiveops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index a93f2846b..e30ba21fd 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -504,7 +504,7 @@ let is_predicate_explicitly_dep env sigma pred arsign = let pv' = EConstr.of_constr (whd_all env sigma pval) in match EConstr.kind sigma pv', arsign with | Lambda (na,t,b), (LocalAssum _)::arsign -> - srec (push_rel_assum (na, EConstr.Unsafe.to_constr t) env) b arsign + srec (push_rel_assum (na, t) env) b arsign | Lambda (na,_,t), _ -> (* The following code has an impact on the introduction names |