doc-src/IsarAdvanced/Codegen/Thy/examples/integers.ML
author wenzelm
Fri, 19 Jan 2007 22:10:35 +0100
changeset 22124 27b674312b2f
parent 22015 12b94d7f7e1f
child 22798 e3962371f568
permissions -rw-r--r--
renamed Isar/isar_output.ML to Thy/thy_output.ML; tuned messages; Antiquote.scan_arguments (moved from here); moved ML context stuff to from Context to ML_Context;

structure ROOT = 
struct

structure Codegen = 
struct

fun double_inc k =
  IntInf.+ ((IntInf.* ((2 : IntInf.int), k)), (1 : IntInf.int));

end; (*struct Codegen*)

end; (*struct ROOT*)