diff options
| author | Gaëtan Gilbert | 2020-02-06 20:30:18 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 12c1cfea1573f3c83a14b196198854668c2967f1 (patch) | |
| tree | 9e878596f645a4566f89bb165ddc45d4d8ccc544 /plugins | |
| parent | aa0f5e5cf23a650bf0302d2c35aa2b0d56f59f48 (diff) | |
unsafe_type_of -> get_type_of in Extractactics.destauto_in
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/extratactics.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/extratactics.mlg b/plugins/ltac/extratactics.mlg index d138ae755a..513f5ca77b 100644 --- a/plugins/ltac/extratactics.mlg +++ b/plugins/ltac/extratactics.mlg @@ -794,7 +794,7 @@ let destauto t = let destauto_in id = Proofview.Goal.enter begin fun gl -> - let ctype = Tacmach.New.pf_unsafe_type_of gl (mkVar id) in + let ctype = Tacmach.New.pf_get_type_of gl (mkVar id) in (* Pp.msgnl (Printer.pr_lconstr (mkVar id)); *) (* Pp.msgnl (Printer.pr_lconstr (ctype)); *) destauto ctype |