diff options
author | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-02-13 18:18:44 +0100 |
---|---|---|
committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-15 15:21:52 +0200 |
commit | e82e8e216c4955db58255062fb5c61c7b2aa3c2a (patch) | |
tree | b5913e217fe69c98662e4b526212e0ef028a8577 /pretyping/cases.ml | |
parent | f2e2d1d9f00ab731bd2bbe1dd57d685ac5024204 (diff) |
Better elaboration of pattern-matchings on primitive projections
This ensures that computations are shared as much as possible, mimicking
the "positive" records computational behavior if possible.
Diffstat (limited to 'pretyping/cases.ml')
-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 0dd3c5944..93ca9dc5e 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1425,7 +1425,7 @@ and match_current pb (initial,tomatch) = let ci = make_case_info pb.env (fst mind) pb.casestyle in let pred = nf_betaiota pb.env !(pb.evdref) pred in let case = - make_case_or_project pb.env !(pb.evdref) indf ci pred current brvals + make_case_or_project pb.env !(pb.evdref) indf ci pred current brvals 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; |