src/HOL/Library/Old_Datatype.thy
changeset 58377 c6f93b8d2d8e
parent 58376 c9d3074f83b3
child 58390 b74d8470b98e
     1.1 --- a/src/HOL/Library/Old_Datatype.thy	Thu Sep 18 16:47:40 2014 +0200
     1.2 +++ b/src/HOL/Library/Old_Datatype.thy	Thu Sep 18 16:47:40 2014 +0200
     1.3 @@ -10,6 +10,10 @@
     1.4  keywords "old_datatype" :: thy_decl
     1.5  begin
     1.6  
     1.7 +ML_file "~~/src/HOL/Tools/Old_Datatype/old_size.ML"
     1.8 +ML_file "~~/src/HOL/Tools/datatype_realizer.ML"
     1.9 +
    1.10 +
    1.11  subsection {* The datatype universe *}
    1.12  
    1.13  definition "Node = {p. EX f x k. p = (f :: nat => 'b + nat, x ::'a + nat) & f k = Inr 0}"
    1.14 @@ -523,6 +527,5 @@
    1.15  
    1.16  ML_file "~~/src/HOL/Tools/Old_Datatype/old_datatype.ML"
    1.17  ML_file "~~/src/HOL/Tools/inductive_realizer.ML"
    1.18 -ML_file "~~/src/HOL/Tools/datatype_realizer.ML"
    1.19  
    1.20  end