src/HOL/Boogie/Tools/boogie_loader.ML
changeset 35626 06197484c6ad
parent 35625 9c818cab0dd0
child 35682 5e6811f4294b
--- a/src/HOL/Boogie/Tools/boogie_loader.ML	Sun Mar 07 12:19:47 2010 +0100
+++ b/src/HOL/Boogie/Tools/boogie_loader.ML	Sun Mar 07 12:47:02 2010 +0100
@@ -88,7 +88,7 @@
           let
             val args = Name.variant_list [] (replicate arity "'")
             val (T, thy') =
-              Object_Logic.typedecl (Binding.name isa_name, args, mk_syntax name arity) thy
+              Typedecl.typedecl (Binding.name isa_name, args, mk_syntax name arity) thy
             val type_name = fst (Term.dest_Type T)
           in (((name, type_name), log_new name type_name), thy') end)
     end