From 2219309681e03b32d0490690374e7f9f6c92b2f4 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Fri, 12 Sep 2014 14:51:14 +0200
Subject: An old typo which was preventing example #3537 to work the same as it
 was working in 8.4.

---
 pretyping/cases.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pretyping')

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
-- 
cgit v1.2.3