From f3f1b6cece86b785e1cf58fd5f1e273dbeceb92b Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 29 Oct 2008 19:07:02 +0000
Subject: Adaptation du vieil appel à "apply" sur lemme de symétrie au cas où
 une réduction a eu lieu (insertion d'un "change" pour que "apply" n'échoue
 pas).  À faire : nettoyer la construction par tactique de la preuve de
 symétrie de a=b -> b=a (quand le lemme de symétrie n'existe pas) pour quelle
 ne lance pas une conversion potentiellement longue entre a et b (le cas est
 arrivé dans CatsInZFC/notation.v !) [HH + MS]

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

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index cf603e8fde..047cb0b74b 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -2934,7 +2934,9 @@ let symmetry_red allowred gl =
         let hdcncls = string_of_inductive hdcncl in
         begin 
 	  try 
-	    (apply (pf_parse_const gl ("sym_"^hdcncls)) gl)
+            tclTHEN
+              (convert_concl_no_check concl DEFAULTcast)
+	      (apply (pf_parse_const gl ("sym_"^hdcncls))) gl
           with  _ ->
             let symc = match args with 
 	      | [t1; c1; t2; c2] -> mkApp (hdcncl, [| t2; c2; t1; c1 |])
-- 
cgit v1.2.3