src/HOL/Library/Old_Datatype.thy
changeset 58377 c6f93b8d2d8e
parent 58376 c9d3074f83b3
child 58390 b74d8470b98e
--- a/src/HOL/Library/Old_Datatype.thy	Thu Sep 18 16:47:40 2014 +0200
+++ b/src/HOL/Library/Old_Datatype.thy	Thu Sep 18 16:47:40 2014 +0200
@@ -10,6 +10,10 @@
 keywords "old_datatype" :: thy_decl
 begin
 
+ML_file "~~/src/HOL/Tools/Old_Datatype/old_size.ML"
+ML_file "~~/src/HOL/Tools/datatype_realizer.ML"
+
+
 subsection {* The datatype universe *}
 
 definition "Node = {p. EX f x k. p = (f :: nat => 'b + nat, x ::'a + nat) & f k = Inr 0}"
@@ -523,6 +527,5 @@
 
 ML_file "~~/src/HOL/Tools/Old_Datatype/old_datatype.ML"
 ML_file "~~/src/HOL/Tools/inductive_realizer.ML"
-ML_file "~~/src/HOL/Tools/datatype_realizer.ML"
 
 end