src/Sequents/ex/Modal/ROOT.ML

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Sequents/ex/Modal/ROOT.ML	Wed Oct 09 13:32:33 1996 +0200
@@ -0,0 +1,28 @@
+(*  Title:      Modal/ex/ROOT
+    ID:         $Id$
+    Author:     Martin Coen
+    Copyright   1991  University of Cambridge
+*)
+
+Sequents_build_completed;    (*Cause examples to fail if Modal did*)
+
+proof_timing := true;
+
+writeln "\nTheorems of T\n";
+fun try s = (writeln s; prove_goal T.thy s (fn _=> [T_Prover.solve_tac 2]));
+time_use "ex/Modal/Tthms.ML";
+
+writeln "\nTheorems of S4\n";
+fun try s = (writeln s; prove_goal S4.thy s (fn _=> [S4_Prover.solve_tac 2]));
+time_use "ex/Modal/Tthms.ML";
+time_use "ex/Modal/S4thms.ML";
+
+writeln "\nTheorems of S43\n";
+fun try s = (writeln s;
+             prove_goal S43.thy s (fn _=> [S43_Prover.solve_tac 2 ORELSE 
+                                           S43_Prover.solve_tac 3]));
+time_use "ex/Modal/Tthms.ML";
+time_use "ex/Modal/S4thms.ML";
+time_use "ex/Modal/S43thms.ML";
+
+maketest"END: Root file for Modal examples";