src/Modal/ex/ROOT.ML
author clasohm
Tue, 24 Oct 1995 14:50:24 +0100
changeset 1296 ae31bb7774a7
parent 0 a5a9c433f639
child 1352 2e29baa12ae7
permissions -rw-r--r--
added calls of init_html and make_chart
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
1296
ae31bb7774a7 added calls of init_html and make_chart
clasohm
parents: 0
diff changeset
    28
make_chart ();   (*make HTML chart*)
ae31bb7774a7 added calls of init_html and make_chart
clasohm
parents: 0
diff changeset
    29
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    30
maketest"END: Root file for Modal examples";