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)
     1 (*  Title:      HOL/Auth/ROOT
     2     ID:         $Id$
     3     Author:     Lawrence C Paulson, Cambridge University Computer Laboratory
     4     Copyright   1996  University of Cambridge
     5 
     6 Root file for protocol proofs.
     7 *)
     8 
     9 HOL_build_completed;    (*Make examples fail if HOL did*)
    10 
    11 writeln"Root file for HOL/Auth";
    12 proof_timing := true;
    13 goals_limit := 1;
    14 
    15 (*New version of addss isn't ready--too slow*)
    16 val op addss = op unsafe_addss;
    17 
    18 (*Shared-key protocols*)
    19 time_use_thy "NS_Shared";
    20 time_use_thy "OtwayRees";
    21 time_use_thy "OtwayRees_AN";
    22 time_use_thy "OtwayRees_Bad";
    23 time_use_thy "WooLam";
    24 time_use_thy "Recur";
    25 time_use_thy "Yahalom";
    26 time_use_thy "Yahalom2";
    27 
    28 (*Public-key protocols*)
    29 time_use_thy "NS_Public_Bad";
    30 time_use_thy "NS_Public";
    31