diff options
| author | Gaëtan Gilbert | 2020-02-06 16:37:33 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 42c28946cded7e81ade816416fc1538341fd4da8 (patch) | |
| tree | 28984ec151e7782ec6197a349a72263239b3cdde /tactics/tacticals.ml | |
| parent | 907df42d15904c13b4e8c5af0e24ff0406b3f6ed (diff) | |
unsafe_type_of -> get_type_of in Elim.general_decomposer + pf_apply in ifOnHyp
Diffstat (limited to 'tactics/tacticals.ml')
| -rw-r--r-- | tactics/tacticals.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml index 199fdd50c4..58d2097dea 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -587,7 +587,7 @@ module New = struct let ifOnHyp pred tac1 tac2 id = Proofview.Goal.enter begin fun gl -> let typ = Tacmach.New.pf_get_hyp_typ id gl in - if pred (id,typ) then + if pf_apply pred gl (id,typ) then tac1 id else tac2 id |