changeset 38558 | 32ad17fe2b9c |
parent 37744 | 3daaf23b9ab4 |
child 38715 | 6513ea67d95d |
--- a/src/HOL/Tools/simpdata.ML Thu Aug 19 16:08:54 2010 +0200 +++ b/src/HOL/Tools/simpdata.ML Thu Aug 19 16:08:59 2010 +0200 @@ -45,7 +45,7 @@ (*expects Trueprop if not == *) of Const (@{const_name "=="},_) $ _ $ _ => th | _ $ (Const (@{const_name "op ="}, _) $ _ $ _) => mk_meta_eq th - | _ $ (Const (@{const_name "Not"}, _) $ _) => th RS @{thm Eq_FalseI} + | _ $ (Const (@{const_name Not}, _) $ _) => th RS @{thm Eq_FalseI} | _ => th RS @{thm Eq_TrueI} fun mk_eq_True (_: simpset) r =