doc-src/IsarAdvanced/Codegen/Thy/examples/integers.ML

more cleanup

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*)