changeset 28083 | 103d9282a946 |
parent 27295 | cfe5244301dd |
child 28084 | a05ca48ef263 |
--- a/src/HOL/Typedef.thy Tue Sep 02 14:10:32 2008 +0200 +++ b/src/HOL/Typedef.thy Tue Sep 02 14:10:45 2008 +0200 @@ -145,7 +145,7 @@ thy |> TheoryTarget.instantiation ([tyco], vs, @{sort itself}) |> `(fn lthy => Syntax.check_term lthy eq) - |-> (fn eq => Specification.definition (NONE, (("", []), eq))) + |-> (fn eq => Specification.definition (NONE, ((Name.no_binding, []), eq))) |> snd |> Class.prove_instantiation_instance (K (Class.intro_classes_tac [])) |> LocalTheory.exit