diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tactics.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 51aa86613..41fab4e71 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2903,6 +2903,7 @@ let apply_induction_with_discharge induct_tac elim indhyps destopt avoid names t let apply_induction_in_context hyp0 elim indvars names induct_tac gl = let env = pf_env gl in let statuslists,lhyp0,indhyps,deps = cook_sign hyp0 indvars env in + let deps = List.map (on_pi3 refresh_universes_strict) deps in let tmpcl = it_mkNamedProd_or_LetIn (pf_concl gl) deps in let dephyps = List.map (fun (id,_,_) -> id) deps in let deps_cstr = |