From 1013117e5bfee396c5746cc851bdc72f6330d0ea Mon Sep 17 00:00:00 2001
From: puech
Date: Fri, 29 Jul 2011 14:30:18 +0000
Subject: generic = on named_context replaced by named_context_equal

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

(limited to 'tactics')

diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml
index 1450d50322..07915be59f 100644
--- a/tactics/tacinterp.ml
+++ b/tactics/tacinterp.ml
@@ -1235,8 +1235,8 @@ let solvable_by_tactic env evi (ev,args) src =
   match (!implicit_tactic, src) with
   | Some tac, (ImplicitArg _ | QuestionMark _)
       when
-	Environ.named_context_of_val evi.evar_hyps =
-	Environ.named_context env ->
+	Sign.named_context_equal (Environ.named_context_of_val evi.evar_hyps)
+	(Environ.named_context env) ->
       let id = id_of_string "H" in
       start_proof id (Local,Proof Lemma) evi.evar_hyps evi.evar_concl
 	(fun _ _ -> ());
-- 
cgit v1.2.3