diff options
| author | Matthieu Sozeau | 2018-06-14 11:56:35 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2018-06-14 11:57:07 +0200 |
| commit | c2eb7256ba433032a405944f45ad413d93312c07 (patch) | |
| tree | 64a89344d3131b53b7f8cb5ee78df9e2d4cc6eab | |
| parent | b5569f511338ebdc7d1053b25500acbffa3e3a40 (diff) | |
Fix deprecation warning introduced by PR 664 merge
| -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 6e1d3e551b..0dd3c5944c 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1427,7 +1427,7 @@ and match_current pb (initial,tomatch) = let case = make_case_or_project pb.env !(pb.evdref) indf ci pred current brvals in - let _ = Typing.e_type_of pb.env pb.evdref pred in + let _ = Evarutil.evd_comb1 (Typing.type_of pb.env) pb.evdref pred in Typing.check_allowed_sort pb.env !(pb.evdref) mind current pred; { uj_val = applist (case, inst); uj_type = prod_applist !(pb.evdref) typ inst } |