changeset 42793 | 88bee9f6eec7 |
parent 42483 | 39eefaef816a |
child 46217 | 7b19666f0e3d |
--- a/src/HOL/Tools/Function/function_core.ML Fri May 13 16:03:03 2011 +0200 +++ b/src/HOL/Tools/Function/function_core.ML Fri May 13 22:55:00 2011 +0200 @@ -702,7 +702,7 @@ Goal.init goal |> (SINGLE (resolve_tac [accI] 1)) |> the |> (SINGLE (eresolve_tac [Thm.forall_elim_vars 0 R_cases] 1)) |> the - |> (SINGLE (auto_tac (clasimpset_of ctxt))) |> the + |> (SINGLE (auto_tac ctxt)) |> the |> Goal.conclude |> fold_rev forall_intr_rename (map fst oqs ~~ cqs) end