diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-14 12:00:20 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-14 12:00:20 +0200 |
| commit | 0e6c8117f5e62f689deda9de2ce044ec11ac9381 (patch) | |
| tree | 31c27161b75c7d2ab4cab62d5968ecfa7d4645f9 | |
| parent | 49c39250ac1114c8d92166521f965835b5526b34 (diff) | |
| parent | c2eb7256ba433032a405944f45ad413d93312c07 (diff) | |
Merge PR #7809: 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 6e1d3e551..0dd3c5944 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 } |