src/FOLP/ex/ROOT.ML
author haftmann
Tue, 10 Jul 2007 17:30:50 +0200
changeset 23709 fd31da8f752a
parent 17480 fd19f77dcf60
child 25991 31b38a39e589
permissions -rw-r--r--
moved lfp_induct2 here
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
17480
fd19f77dcf60 converted to Isar theory format;
wenzelm
parents: 9000
diff changeset
     1
(*  Title:      FOLP/ex/ROOT.ML
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     2
    ID:         $Id$
1459
d12da312eff4 expanded tabs
clasohm
parents: 1351
diff changeset
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     4
    Copyright   1992  University of Cambridge
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     5
17480
fd19f77dcf60 converted to Isar theory format;
wenzelm
parents: 9000
diff changeset
     6
Examples for First-Order Logic. 
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     7
*)
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
     8
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
     9
time_use     "intro.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    10
time_use_thy "Nat";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    11
time_use     "foundn.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    12
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    13
writeln"\n** Intuitionistic examples **\n";
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    14
time_use     "int.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    15
17480
fd19f77dcf60 converted to Isar theory format;
wenzelm
parents: 9000
diff changeset
    16
val thy = theory "IFOLP"  and  tac = IntPr.fast_tac 1;
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    17
time_use     "prop.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    18
time_use     "quant.ML";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    19
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    20
writeln"\n** Classical examples **\n";
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    21
time_use     "cla.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    22
time_use_thy "If";
0
a5a9c433f639 Initial revision
clasohm
parents:
diff changeset
    23
17480
fd19f77dcf60 converted to Isar theory format;
wenzelm
parents: 9000
diff changeset
    24
val thy = theory "FOLP"  and  tac = Cla.fast_tac FOLP_cs 1;
1351
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    25
time_use     "prop.ML";
4a960c012383 removed make_chart;
clasohm
parents: 1296
diff changeset
    26
time_use     "quant.ML";