(*  Title:      Modal/ex/ROOT.ML
    ID:         $Id: ROOT.ML,v 1.4 2005/09/18 13:20:11 wenzelm Exp $
    Author:     Martin Coen
    Copyright   1991  University of Cambridge
*)

writeln "\nTheorems of T\n";
fun try s = (writeln s; prove_goal (theory "T") s (fn _=> [T_Prover.solve_tac 2]));
time_use "Tthms.ML";

writeln "\nTheorems of S4\n";
fun try s = (writeln s; prove_goal (theory "S4") s (fn _=> [S4_Prover.solve_tac 2]));
time_use "Tthms.ML";
time_use "S4thms.ML";

writeln "\nTheorems of S43\n";
fun try s = (writeln s;
             prove_goal (theory "S43") s (fn _=> [S43_Prover.solve_tac 2 ORELSE
                                           S43_Prover.solve_tac 3]));
time_use "Tthms.ML";
time_use "S4thms.ML";
time_use "S43thms.ML";