src/FOLP/ex/ROOT.ML
author clasohm
Thu, 16 Sep 1993 12:20:38 +0200
changeset 0 a5a9c433f639
child 121 d392174734e9
permissions -rw-r--r--
Initial revision
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     1
(*  Title: 	FOLP/ex/ROOT
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     3
    Author: 	Lawrence C Paulson, Cambridge University Computer Laboratory
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1992  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     6
Executes all examples for First-Order Logic. 
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     9
writeln"Root file for FOLP examples";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    10
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    11
proof_timing := true;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
time_use     "ex/intro.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    14
time_use_thy "ex/nat";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
time_use     "ex/foundn.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    16
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    17
writeln"\n** Intuitionistic examples **\n";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    18
time_use     "ex/int.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
val thy = IFOLP.thy  and  tac = Int.fast_tac 1;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    21
time_use     "ex/prop.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    22
time_use     "ex/quant.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    23
commit();
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    24
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    25
writeln"\n** Classical examples **\n";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    26
time_use     "ex/cla.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    27
time_use_thy "ex/if";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    28
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    29
val thy = FOLP.thy  and  tac = Cla.fast_tac FOLP_cs 1;
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    30
time_use     "ex/prop.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    31
time_use     "ex/quant.ML";
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    32
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    33
maketest"END: Root file for FOLP examples";