diff options
| -rw-r--r-- | pretyping/cases.ml | 2 | ||||
| -rw-r--r-- | test-suite/bugs/closed/3537.v (renamed from test-suite/bugs/closed/3557.v) | 0 |
2 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/cases.ml b/pretyping/cases.ml index d52f410d25..567078f853 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -1665,7 +1665,7 @@ let build_inversion_problem loc env sigma tms t = patl@pat::patl',acc_sign,acc | (t, NotInd (bo,typ)) :: tms -> let pat,acc = make_patvar t acc in - let d = (alias_of_pat pat,None,t) in + let d = (alias_of_pat pat,None,typ) in let patl,acc_sign,acc = aux (n+1) (push_rel d env) (d::acc_sign) tms acc in pat::patl,acc_sign,acc in let avoid0 = ids_of_context env in diff --git a/test-suite/bugs/closed/3557.v b/test-suite/bugs/closed/3537.v index 158642f01d..158642f01d 100644 --- a/test-suite/bugs/closed/3557.v +++ b/test-suite/bugs/closed/3537.v |