diff options
| author | Gaëtan Gilbert | 2020-02-06 16:15:53 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 50f5b99e9ffce8d7a54b1a35b899e0645df72632 (patch) | |
| tree | 3dd4dc3bcad2aba69ca7a176c0d34df410f2113e | |
| parent | 5a2600f47b64495a8754be74f3156f915a2497ec (diff) | |
unsafe_type_of -> get_type_of in Contradiction.contradiction_term
| -rw-r--r-- | tactics/contradiction.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/contradiction.ml b/tactics/contradiction.ml index 1f5a6380fd..c7b6998c8c 100644 --- a/tactics/contradiction.ml +++ b/tactics/contradiction.ml @@ -110,8 +110,7 @@ let contradiction_term (c,lbind as cl) = Proofview.Goal.enter begin fun gl -> let sigma = Tacmach.New.project gl in let env = Proofview.Goal.env gl in - let type_of = Tacmach.New.pf_unsafe_type_of gl in - let typ = type_of c in + let typ = Tacmach.New.pf_get_type_of gl c in let _, ccl = splay_prod env sigma typ in if is_empty_type env sigma ccl then Tacticals.New.tclTHEN |