diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2018-06-14 11:48:49 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2018-06-14 11:48:49 +0200 |
| commit | b5569f511338ebdc7d1053b25500acbffa3e3a40 (patch) | |
| tree | 6cc5d6c970f9cd8f38152e5c4aa4e1cbd2362fbb /pretyping/cases.ml | |
| parent | e40e2e7bb250686836693911717d7acfee72ba81 (diff) | |
| parent | f1eac254c130af383587455876b4000fe0cdf957 (diff) | |
Merge PR #664: Fixing #5500 (missing test in return clause of match leading to anomaly)
Diffstat (limited to 'pretyping/cases.ml')
| -rw-r--r-- | pretyping/cases.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index aa1c23f52..6e1d3e551 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1427,6 +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 Typing.check_allowed_sort pb.env !(pb.evdref) mind current pred; { uj_val = applist (case, inst); uj_type = prod_applist !(pb.evdref) typ inst } |