Admin/Benchmarks/HOL-datatype/ROOT.ML

canonical 'cases'/'induct' rules for n-tuples (n=3..7)
(really belongs to theory Product_Type, but doesn't work there yet)

(*  Title:      Admin/Benchmarks/HOL-datatype/ROOT.ML
    ID:         $Id$

Some rather large datatype examples (from John Harrison).
*)

val tests = ["Brackin", "Instructions", "SML", "Verilog"];

set timing;

warning "\nset quick_and_dirty\n"; set quick_and_dirty;
seq time_use_thy tests;

(* not run by default
warning "\nreset quick_and_dirty\n"; reset quick_and_dirty;
seq remove_thy tests;
seq time_use_thy tests;
*)