src/HOL/Lambda/ROOT.ML
author wenzelm
Wed, 06 Dec 2006 01:12:58 +0100
changeset 21676 a45af03f6827
parent 14090 f24b2818c1e7
child 22100 33d7468302bb
permissions -rw-r--r--
no timing;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1465
5d7a7e439cec expanded tabs
clasohm
parents: 1351
diff changeset
     1
(*  Title:      HOL/Lambda/ROOT.ML
1126
50ac36140e21 Moved comment from ParRed.thy to ROOT.ML
nipkow
parents:
diff changeset
     2
    ID:         $Id$
1465
5d7a7e439cec expanded tabs
clasohm
parents: 1351
diff changeset
     3
    Author:     Tobias Nipkow
5261
ce3c25c8a694 First steps towards termination of simply typed terms.
nipkow
parents: 1465
diff changeset
     4
    Copyright   1998 TUM
1126
50ac36140e21 Moved comment from ParRed.thy to ROOT.ML
nipkow
parents:
diff changeset
     5
*)
50ac36140e21 Moved comment from ParRed.thy to ROOT.ML
nipkow
parents:
diff changeset
     6
11943
a9672446b45f tuned notation;
wenzelm
parents: 10264
diff changeset
     7
Syntax.ambiguity_level := 100;
14067
3cc65d66fa12 Added new theories WeakNorm and StrongNorm.
berghofe
parents: 13550
diff changeset
     8
proofs := 2;
3cc65d66fa12 Added new theories WeakNorm and StrongNorm.
berghofe
parents: 13550
diff changeset
     9
IsarOutput.modes := "no_brackets" :: !IsarOutput.modes;
11943
a9672446b45f tuned notation;
wenzelm
parents: 10264
diff changeset
    10
21676
a45af03f6827 no timing;
wenzelm
parents: 14090
diff changeset
    11
use_thy "Eta";
a45af03f6827 no timing;
wenzelm
parents: 14090
diff changeset
    12
no_document use_thy "Accessible_Part";
a45af03f6827 no timing;
wenzelm
parents: 14090
diff changeset
    13
use_thy "StrongNorm";
14090
f24b2818c1e7 Added check for HOL_proofs: Theory WeakNorm is skipped if HOL image has been
berghofe
parents: 14067
diff changeset
    14
if HOL_proofs < 2 then
f24b2818c1e7 Added check for HOL_proofs: Theory WeakNorm is skipped if HOL image has been
berghofe
parents: 14067
diff changeset
    15
  warning "HOL proof terms required for running theory WeakNorm"
21676
a45af03f6827 no timing;
wenzelm
parents: 14090
diff changeset
    16
else use_thy "WeakNorm";