From 064de6f6839c4ef963b83018812c5d4113eb2bb9 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Fri, 30 Sep 2016 17:25:58 +0200
Subject: Fix bug #5045: [generalize] creates ill-typed terms in 8.6.

---
 tactics/tactics.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 2fe8e0bc34..c550df1019 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -2821,10 +2821,12 @@ let generalize_dep ?(with_let = false) c =
 
 (**  *)
 let generalize_gen_let lconstr = Proofview.Goal.nf_s_enter { s_enter = begin fun gl ->
+  let env = Proofview.Goal.env gl in
   let newcl, evd =
     List.fold_right_i (Tacmach.New.of_old generalize_goal gl) 0 lconstr
       (Tacmach.New.pf_concl gl,Tacmach.New.project gl)
   in
+  let (evd, _) = Typing.type_of env evd newcl in
   let map ((_, c, b),_) = if Option.is_empty b then Some c else None in
   let tac = apply_type newcl (List.map_filter map lconstr) in
   Sigma.Unsafe.of_pair (tac, evd)
-- 
cgit v1.2.3