diff options
| author | Hugo Herbelin | 2014-09-12 14:51:14 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-09-12 14:57:31 +0200 |
| commit | 2219309681e03b32d0490690374e7f9f6c92b2f4 (patch) | |
| tree | 63f2597dfd751f087e2777fcac782a82f5a76083 /pretyping | |
| parent | 8326639ef45b22cb066f65d17f27a77a678eb694 (diff) | |
An old typo which was preventing example #3537 to work the same as it
was working in 8.4.
Diffstat (limited to 'pretyping')
| -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 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 |