diff options
| author | Gaëtan Gilbert | 2020-02-06 16:11:41 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 598558339afec652467c78d0bd6e472df051ef69 (patch) | |
| tree | 0ae4b8c6b307b4015b788322ffa0bc1434b55712 | |
| parent | 1fd5cec8fbc7323ac7bd710707f37d906c5bc794 (diff) | |
unsafe_type_of -> get_type_of in Tacticals.elimination_then
| -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 5db72e669e..199fdd50c4 100644 --- a/tactics/tacticals.ml +++ b/tactics/tacticals.ml @@ -741,7 +741,7 @@ module New = struct let elimination_then tac c = Proofview.Goal.enter begin fun gl -> - let (ind,t) = pf_reduce_to_quantified_ind gl (pf_unsafe_type_of gl c) in + let (ind,t) = pf_reduce_to_quantified_ind gl (pf_get_type_of gl c) in let isrec,mkelim = match (Global.lookup_mind (fst (fst ind))).mind_record with | NotRecord -> true,gl_make_elim |