src/HOL/Auth/ROOT.ML
author paulson
Wed May 07 13:01:43 1997 +0200 (1997-05-07)
changeset 3121 cbb6c0c1c58a
parent 2530 02ccf78ad0a3
child 3207 fe79ad367d77
permissions -rw-r--r--
Conversion to use blast_tac (with other improvements)
paulson@1944
     1
(*  Title:      HOL/Auth/ROOT
paulson@1944
     2
    ID:         $Id$
paulson@1944
     3
    Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
paulson@1944
     4
    Copyright   1996  University of Cambridge
paulson@1944
     5
paulson@1971
     6
Root file for protocol proofs.
paulson@1944
     7
*)
paulson@1944
     8
paulson@1944
     9
HOL_build_completed;    (*Make examples fail if HOL did*)
paulson@1944
    10
paulson@1944
    11
writeln"Root file for HOL/Auth";
paulson@1944
    12
proof_timing := true;
paulson@2123
    13
goals_limit := 1;
paulson@1944
    14
paulson@3121
    15
(*New version of addss isn't ready--too slow*)
paulson@3121
    16
val op addss = op unsafe_addss;
paulson@3121
    17
paulson@2325
    18
(*Shared-key protocols*)
paulson@2530
    19
time_use_thy "NS_Shared";
paulson@2530
    20
time_use_thy "OtwayRees";
paulson@2530
    21
time_use_thy "OtwayRees_AN";
paulson@2530
    22
time_use_thy "OtwayRees_Bad";
paulson@2530
    23
time_use_thy "WooLam";
paulson@2530
    24
time_use_thy "Recur";
paulson@2530
    25
time_use_thy "Yahalom";
paulson@2530
    26
time_use_thy "Yahalom2";
paulson@1944
    27
paulson@2325
    28
(*Public-key protocols*)
paulson@2530
    29
time_use_thy "NS_Public_Bad";
paulson@2530
    30
time_use_thy "NS_Public";
paulson@2325
    31