From 3c9fe09ad4cdba24b906658cb14df0b44ed634a2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 6 Feb 2008 20:28:42 +0000
Subject: Suite 10518

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10521 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tacinterp.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index b5a5f984fc..a403832fff 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -731,7 +731,8 @@ let rec intern_atomic lf ist x =
       TacReduce (intern_red_expr ist r, clause_app (intern_hyp_location ist) cl)
   | TacChange (occl,c,cl) ->
       TacChange (Option.map (intern_constr_occurrence ist) occl,
-        (if occl = None then intern_type ist c else intern_constr ist c),
+        (if occl = None & cl.onhyps = None & cl.concl_occs = []
+         then intern_type ist c else intern_constr ist c),
 	clause_app (intern_hyp_location ist) cl)
 
   (* Equivalence relations *)
-- 
cgit v1.2.3