src/HOL/Tools/Datatype/datatype_codegen.ML
changeset 38348 cf7b2121ad9d
parent 37425 b5492f611129
child 38538 c87b69396a37
--- a/src/HOL/Tools/Datatype/datatype_codegen.ML	Wed Aug 11 14:31:40 2010 +0200
+++ b/src/HOL/Tools/Datatype/datatype_codegen.ML	Wed Aug 11 14:31:43 2010 +0200
@@ -115,7 +115,7 @@
       #> snd
   in
     thy
-    |> Theory_Target.instantiation (dtcos, vs, [HOLogic.class_eq])
+    |> Class.instantiation (dtcos, vs, [HOLogic.class_eq])
     |> fold_map add_def dtcos
     |-> (fn def_thms => Class.prove_instantiation_exit_result (map o Morphism.thm)
          (fn _ => fn def_thms => tac def_thms) def_thms)