doc-src/Intro/list.thy

val apply: ('a -> 'a) list -> 'a -> 'a;
val transform_failure: (exn -> exn) -> ('a -> 'b) -> 'a -> 'b;

List = FOL +
types 	list 1
arities list	:: (term)term
consts	Nil	:: "'a list"
   	Cons	:: "['a, 'a list] => 'a list" 
end