diff options
| author | Gaëtan Gilbert | 2020-02-06 14:30:08 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | 5112af4fd5df24b7272e69affcbb88edf1474b82 (patch) | |
| tree | d73d6b6e88fa445409539e7dd57aaf745553fc4c /pretyping | |
| parent | c6e89e2b13d7fa99aaaaf02fc3430ae6c5f00beb (diff) | |
unsafe_type_of -> get_type_of in cases
It goes in an error message so should be fine.
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/cases.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index cbd04a76ad..29d6726262 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -2164,7 +2164,7 @@ let constr_of_pat env sigma arsign pat avoid = let IndType (indf, _) = try find_rectype env sigma (lift (-(List.length realargs)) ty) with Not_found -> error_case_not_inductive env sigma - {uj_val = ty; uj_type = Typing.unsafe_type_of env sigma ty} + {uj_val = ty; uj_type = Retyping.get_type_of env sigma ty} in let (ind,u), params = dest_ind_family indf in let params = List.map EConstr.of_constr params in |