author | Christian Urban <urbanc@in.tum.de> |
Sat, 18 Sep 2010 05:13:42 +0800 | |
changeset 2478 | 9b673588244a |
parent 2477 | 2f289c1f6cf1 |
child 2479 | a9b6a00b1ba0 |
--- a/Nominal-General/nominal_thmdecls.ML Sun Sep 12 22:46:40 2010 +0800 +++ b/Nominal-General/nominal_thmdecls.ML Sat Sep 18 05:13:42 2010 +0800 @@ -191,7 +191,7 @@ fun eqvt_transform ctxt thm = case (prop_of thm) of - @{const "Trueprop"} $ (Const (@{const_name "op ="}, _) $ + @{const "Trueprop"} $ (Const (@{const_name "HOL.eq"}, _) $ (Const (@{const_name "permute"}, _) $ _ $ _) $ _) => eqvt_transform_eq ctxt thm | @{const "==>"} $ (@{const "Trueprop"} $ _) $ (@{const "Trueprop"} $ _) =>