doc-src/IsarAdvanced/Codegen/Thy/examples/arbitrary.ML
author wenzelm
Fri, 19 Jan 2007 22:10:35 +0100
changeset 22124 27b674312b2f
parent 21994 dfa5133dbe73
child 23850 f1434532a562
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

val arbitrary_option : 'a option = NONE;

fun dummy_option [] = arbitrary_option
  | dummy_option (x :: xs) = SOME x;

end; (*struct Codegen*)

end; (*struct ROOT*)