changeset 20638 | 241792a4634e |
parent 20523 | 36a59e5d0039 |
child 20654 | d80502f0d701 |
--- a/src/HOL/Tools/function_package/fundef_package.ML Wed Sep 20 10:13:36 2006 +0200 +++ b/src/HOL/Tools/function_package/fundef_package.ML Wed Sep 20 12:05:31 2006 +0200 @@ -135,7 +135,7 @@ lthy |> add_simps "simps" [] mutual_info fixes tsimps stmts |> with_local_path defname - (LocalTheory.note (("induct", [Attrib.internal (InductAttrib.induct_set "")]), tinduct) #> snd) + (LocalTheory.note (("induct", []), tinduct) #> snd) end