doc-src/IsarAdvanced/Codegen/Thy/examples/arbitrary.ML
author haftmann
Tue, 08 Jan 2008 11:37:37 +0100
changeset 25866 263aaf988d44
parent 23850 f1434532a562
permissions -rw-r--r--
normalization conversion

structure Codegen = 
struct

val arbitrary_option : 'a option = NONE;

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

end; (*struct Codegen*)