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
     1 (*  Title:      TLA/ROOT.ML
     2 
     3 Adds the Temporal Logic of Actions to a database containing Isabelle/HOL.
     4 *)
     5 
     6 val banner = "Temporal Logic of Actions";
     7 
     8 (*
     9    raise the ambiguity level to avoid ambiguity warnings;
    10    since Trueprop and TrueInt have both empty syntax, there is
    11    an unavoidable ambiguity in the TLA (actually, Intensional) grammar.
    12 *)
    13 Syntax.ambiguity_level := 10000;
    14 
    15 reset global_names;
    16 
    17 (*FIXME: the old auto_tac is sometimes needed!*)
    18 fun old_auto_tac (cs,ss) = 
    19     let val cs' = cs addss ss 
    20     in  EVERY [TRY (safe_tac cs'),
    21                REPEAT (FIRSTGOAL (fast_tac cs')),
    22                TRY (safe_tac (cs addSss ss)),
    23                prune_params_tac] 
    24     end;
    25 
    26 
    27 use_thy "TLA";
    28 
    29 val TLA_build_completed = ();