From 517f47037053c873f715428795d2199459b9924b Mon Sep 17 00:00:00 2001
From: herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 26 May 2010 14:29:40 +0000
Subject: Fixing Derive Inversion for new proof engine

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13027 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/leminv.ml | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'tactics')

diff --git a/tactics/leminv.ml b/tactics/leminv.ml
index 5c22bfd89..abb114d91 100644
--- a/tactics/leminv.ml
+++ b/tactics/leminv.ml
@@ -229,16 +229,17 @@ let inversion_scheme env sigma t sort dep_option inv_op =
   let { sigma=sigma } = Proof.V82.subgoals pf in
   let rec fill_holes c =
     match kind_of_term c with
-    | Evar (e,_) ->
+    | Evar (e,args) ->
 	let h = next_ident_away (id_of_string "H") !avoid in
-	let ty = (Evd.find sigma e).evar_concl in
+	let ty,inst = Evarutil.generalize_evar_over_rels sigma (e,args) in
 	avoid := h::!avoid;
 	ownSign := add_named_decl (h,None,ty) !ownSign;
-	mkVar h
+	applist (mkVar h, inst)
     | _ -> map_constr fill_holes c
   in
-  let invProof =
-    it_mkNamedLambda_or_LetIn (fill_holes pfterm) !ownSign
+  let c = fill_holes pfterm in
+  (* warning: side-effect on ownSign *)
+  let invProof = it_mkNamedLambda_or_LetIn c !ownSign
   in
   invProof
 
-- 
cgit v1.2.3