diff options
| author | Pierre-Marie Pédrot | 2020-06-20 13:15:14 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-24 15:38:24 +0200 |
| commit | b89584b989d8623a63e85b4a664a730d0f92ed65 (patch) | |
| tree | ad613450624e757e9b3d4f4fd445c60cc1a1dd73 /tactics/tactics.ml | |
| parent | 43b1742b2d7da56315fdc8e99c730fb456259cd5 (diff) | |
Remove all uses of clenv_unique_resolver.
All calls to this function are now factorized through Clenvtac.res_pf.
Diffstat (limited to 'tactics/tactics.ml')
| -rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 65f79b6a51..fd9fd81500 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -4371,8 +4371,7 @@ let induction_tac with_evars params indvars elim = (* elimclause' is built from elimclause by instantiating all args and params. *) let elimclause' = recolle_clenv i params indvars elimclause gl in (* one last resolution (useless?) *) - let resolved = clenv_unique_resolver ~flags:(elim_flags ()) elimclause' gl in - Clenvtac.clenv_refine ~with_evars resolved + Clenvtac.res_pf ~with_evars ~flags:(elim_flags ()) elimclause' end (* Apply induction "in place" taking into account dependent |