diff options
| author | Emilio Jesus Gallego Arias | 2020-02-22 15:22:54 -0500 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-02-22 15:22:54 -0500 |
| commit | 53c9fd8339873b2bd77d756a96a2908eb5ce078a (patch) | |
| tree | dbaa26ee712b3dc4328fb21140b2eee39b9f0bca /pretyping | |
| parent | de66463971d96cb5d2a1d1379d42e9187eb4fd0d (diff) | |
| parent | a5b552175253726a3cd73471a96b33215ee19af2 (diff) | |
Merge PR #11639: Fixes #10917: anomaly in building return clause of n-ary pattern-matching problem
Reviewed-by: ejgallego
Diffstat (limited to 'pretyping')
| -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 abc16f621e..55c1f41c2c 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1817,6 +1817,7 @@ let build_inversion_problem ~program_mode loc env sigma tms t = List.rev_append patl patl',acc_sign,acc | (t, NotInd (bo,typ)) :: tms -> let pat,acc = make_patvar t acc in + let typ = lift n typ in let d = LocalAssum (annotR (alias_of_pat pat),typ) in let patl,acc_sign,acc = aux (n+1) (snd (push_rel ~hypnaming:KeepUserNameAndRenameExistingButSectionNames sigma d env)) (d::acc_sign) tms acc in pat::patl,acc_sign,acc in |