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/tacticals.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/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index af10a2fae5..483d8a726b 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -684,7 +684,6 @@ module New = struct | None -> elimclause' | Some p -> clenv_unify ~flags Reduction.CONV (mkMeta pmv) p elimclause' in - let clenv' = clenv_unique_resolver ~flags elimclause' gl in let after_tac i = let ba = { branchsign = branchsigns.(i); branchnames = brnames.(i); @@ -696,7 +695,7 @@ module New = struct in let branchtacs = List.init (Array.length branchsigns) after_tac in Proofview.tclTHEN - (Clenvtac.clenv_refine clenv') + (Clenvtac.res_pf ~flags elimclause') (Proofview.tclEXTEND [] tclIDTAC branchtacs) end) end |