doc-src/IsarAdvanced/Codegen/Thy/examples/Codegen.hs
changeset 24421 acfb2413faa3
parent 22798 e3962371f568
child 24628 33137422d7fd
     1.1 --- a/doc-src/IsarAdvanced/Codegen/Thy/examples/Codegen.hs	Fri Aug 24 14:14:16 2007 +0200
     1.2 +++ b/doc-src/IsarAdvanced/Codegen/Thy/examples/Codegen.hs	Fri Aug 24 14:14:17 2007 +0200
     1.3 @@ -10,11 +10,8 @@
     1.4  heada (x : xs) = x;
     1.5  heada [] = Codegen.nulla;
     1.6  
     1.7 -null_option :: Maybe a;
     1.8 -null_option = Nothing;
     1.9 -
    1.10  instance Codegen.Null (Maybe b) where {
    1.11 -  nulla = Codegen.null_option;
    1.12 +  nulla = Nothing;
    1.13  };
    1.14  
    1.15  dummy :: Maybe Nat.Nat;