src/HOL/TLA/ROOT.ML
author paulson
Wed Dec 24 10:02:30 1997 +0100 (1997-12-24)
changeset 4477 b3e5857d8d99
parent 3945 ae9c61d69888
child 5210 54aaa779b6b4
permissions -rw-r--r--
New Auto_tac (by Oheimb), and new syntax (without parens), and expandshort
wenzelm@3807
     1
(*  Title:      TLA/ROOT.ML
wenzelm@3807
     2
wenzelm@3807
     3
Adds the Temporal Logic of Actions to a database containing Isabelle/HOL.
wenzelm@3807
     4
*)
wenzelm@3807
     5
wenzelm@3807
     6
val banner = "Temporal Logic of Actions";
wenzelm@3807
     7
wenzelm@3807
     8
(*
wenzelm@3807
     9
   raise the ambiguity level to avoid ambiguity warnings;
wenzelm@3807
    10
   since Trueprop and TrueInt have both empty syntax, there is
wenzelm@3807
    11
   an unavoidable ambiguity in the TLA (actually, Intensional) grammar.
wenzelm@3807
    12
*)
wenzelm@3807
    13
Syntax.ambiguity_level := 10000;
wenzelm@3807
    14
wenzelm@3945
    15
reset global_names;
wenzelm@3945
    16
paulson@4477
    17
(*FIXME: the old auto_tac is sometimes needed!*)
paulson@4477
    18
fun old_auto_tac (cs,ss) = 
paulson@4477
    19
    let val cs' = cs addss ss 
paulson@4477
    20
    in  EVERY [TRY (safe_tac cs'),
paulson@4477
    21
               REPEAT (FIRSTGOAL (fast_tac cs')),
paulson@4477
    22
               TRY (safe_tac (cs addSss ss)),
paulson@4477
    23
               prune_params_tac] 
paulson@4477
    24
    end;
paulson@4477
    25
paulson@4477
    26
wenzelm@3807
    27
use_thy "TLA";
wenzelm@3807
    28
wenzelm@3807
    29
val TLA_build_completed = ();