From 4249ab5cac5bb0d638400b14c389ded98b3c8ea8 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Mon, 27 Oct 2014 08:44:12 +0100
Subject: Making destruct on idents with maximal implicit arguments working, by
 keeping them as open holes. When these arguments are class instances, this
 restores compatibility with the 8.4 search for subterms from non-fully
 applied patterns which was using conversion on the instances.

---
 tactics/tacinterp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tactics')

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index cc09170107..7f18065fe6 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -958,7 +958,7 @@ let interp_induction_arg ist gl arg =
 	else
           let c = (GVar (loc,id),Some (CRef (Ident (loc,id),None))) in
           let f env sigma = 
-            let (sigma,c) = interp_constr ist env sigma c in
+            let (sigma,c) = interp_open_constr ist env sigma c in
             sigma,(c,NoBindings) in
           keep,ElimOnConstr f
 
-- 
cgit v1.2.3