| changeset 22751 | 1bfd75c1f232 |
| parent 22386 | 4ebe883b02ff |
| child 22798 | e3962371f568 |
--- a/doc-src/IsarAdvanced/Codegen/Thy/examples/class.ML Fri Apr 20 11:21:53 2007 +0200 +++ b/doc-src/IsarAdvanced/Codegen/Thy/examples/class.ML Fri Apr 20 13:11:47 2007 +0200 @@ -14,7 +14,7 @@ type 'a null = {null : 'a}; fun null (A_:'a null) = #null A_; -fun head A_ (y :: xs) = y +fun head A_ (x :: xs) = x | head A_ [] = null A_; val null_option : 'a option = NONE;