diff options
| author | herbelin | 2008-10-29 19:07:02 +0000 |
|---|---|---|
| committer | herbelin | 2008-10-29 19:07:02 +0000 |
| commit | f3f1b6cece86b785e1cf58fd5f1e273dbeceb92b (patch) | |
| tree | 152289d046077a5d1265afb31f29a948f10e9764 | |
| parent | a9143560f1f770c6f2622ee7fe2064c847f08855 (diff) | |
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
| -rw-r--r-- | tactics/tactics.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |]) |