--- a/src/HOL/Auth/ROOT.ML Tue Jul 31 22:21:22 2007 +0200
+++ b/src/HOL/Auth/ROOT.ML Tue Jul 31 23:23:28 2007 +0200
@@ -1,4 +1,4 @@
-(* Title: HOL/Auth/ROOT
+(* Title: HOL/Auth/ROOT.ML
ID: $Id$
Author: Lawrence C Paulson, Cambridge University Computer Laboratory
Copyright 1996 University of Cambridge
@@ -8,41 +8,46 @@
no_document use_thy "NatPair";
-set timing;
+use_thys [
(* Conventional protocols: rely on
conventional Message, Event and Public *)
(*Shared-key protocols*)
-time_use_thy "NS_Shared";
-time_use_thy "Kerberos_BAN";
-time_use_thy "Kerberos_BAN_Gets";
-time_use_thy "KerberosIV";
-time_use_thy "KerberosIV_Gets";
-time_use_thy "KerberosV";
-time_use_thy "OtwayRees";
-time_use_thy "OtwayRees_AN";
-time_use_thy "OtwayRees_Bad";
-time_use_thy "OtwayReesBella";
-time_use_thy "WooLam";
-time_use_thy "Recur";
-time_use_thy "Yahalom";
-time_use_thy "Yahalom2";
-time_use_thy "Yahalom_Bad";
-time_use_thy "ZhouGollmann";
+ "NS_Shared",
+ "Kerberos_BAN",
+ "Kerberos_BAN_Gets",
+ "KerberosIV",
+ "KerberosIV_Gets",
+ "KerberosV",
+ "OtwayRees",
+ "OtwayRees_AN",
+ "OtwayRees_Bad",
+ "OtwayReesBella",
+ "WooLam",
+ "Recur",
+ "Yahalom",
+ "Yahalom2",
+ "Yahalom_Bad",
+ "ZhouGollmann",
(*Public-key protocols*)
-time_use_thy "NS_Public_Bad";
-time_use_thy "NS_Public";
-time_use_thy "TLS";
-time_use_thy "CertifiedEmail";
+ "NS_Public_Bad",
+ "NS_Public",
+ "TLS",
+ "CertifiedEmail",
(*Smartcard protocols: rely on conventional Message and on new
EventSC and Smartcard *)
-with_path "Smartcard" time_use_thy "ShoupRubin";
-with_path "Smartcard" time_use_thy "ShoupRubinBella";
+ "Smartcard/ShoupRubin",
+ "Smartcard/ShoupRubinBella",
(*Blanqui's "guard" concept: protocol-independent secrecy*)
-with_path "Guard" (app time_use_thy)
- ["P1", "P2", "Guard_NS_Public", "Guard_OtwayRees", "Guard_Yahalom", "Proto"];
+ "Guard/P1",
+ "Guard/P2",
+ "Guard/Guard_NS_Public",
+ "Guard/Guard_OtwayRees",
+ "Guard/Guard_Yahalom",
+ "Guard/Proto"
+];