src/Modal/ex/ROOT.ML
author nipkow
Mon, 06 Dec 1993 17:05:10 +0100
changeset 189 831a9a7ab9f3
parent 0 a5a9c433f639
child 1296 ae31bb7774a7
permissions -rw-r--r--
added rep_tsig
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title: 	Modal/ex/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author: 	Martin Coen
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1991  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
Modal_build_completed;    (*Cause examples to fail if Modal did*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
proof_timing := true;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
writeln "\nTheorems of T\n";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
fun try s = (writeln s; prove_goal T.thy s (fn _=> [T_Prover.solve_tac 2]));
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
time_use "ex/Tthms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
writeln "\nTheorems of S4\n";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
fun try s = (writeln s; prove_goal S4.thy s (fn _=> [S4_Prover.solve_tac 2]));
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
time_use "ex/Tthms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
time_use "ex/S4thms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
writeln "\nTheorems of S43\n";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    21
fun try s = (writeln s;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    22
             prove_goal S43.thy s (fn _=> [S43_Prover.solve_tac 2 ORELSE 
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    23
                                           S43_Prover.solve_tac 3]));
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    24
time_use "ex/Tthms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    25
time_use "ex/S4thms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    26
time_use "ex/S43thms.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    27
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    28
maketest"END: Root file for Modal examples";