doc-src/IsarAdvanced/Codegen/Thy/examples/example.ML

renamed kill_all to kill, in conformance with atp_kill command;
simplified/unified treatment of preferences;
check_thread_manager: CRITICAL due to global ref;
goal addressing via Thm.cprem_of;
reduced NJ basis library stuff to bare minimum;

structure Example = 
struct

fun foldl f a [] = a
  | foldl f a (x :: xs) = foldl f (f a x) xs;

fun rev xs = foldl (fn xsa => fn x => x :: xsa) [] xs;

fun list_case f1 f2 (a :: lista) = f2 a lista
  | list_case f1 f2 [] = f1;

datatype 'a queue = Queue of 'a list * 'a list;

val empty : 'a queue = Queue ([], []);

fun dequeue (Queue ([], [])) = (NONE, Queue ([], []))
  | dequeue (Queue (xs, y :: ys)) = (SOME y, Queue (xs, ys))
  | dequeue (Queue (v :: va, [])) =
    let
      val y :: ys = rev (v :: va);
    in
      (SOME y, Queue ([], ys))
    end;

fun enqueue x (Queue (xs, ys)) = Queue (x :: xs, ys);

end; (*struct Example*)