# HG changeset patch
# User paulson
# Date 846146315 -7200
# Node ID 92a08ee6a9cb49bccb4782f61cbd61d7bd008216
# Parent  9677fdf5fc2332bf747d7c8c876057fae63f6c60
New Oops message, with Server as source to ensure
correct nonces

diff -r 9677fdf5fc23 -r 92a08ee6a9cb src/HOL/Auth/Yahalom.thy
--- a/src/HOL/Auth/Yahalom.thy	Thu Oct 24 10:36:29 1996 +0200
+++ b/src/HOL/Auth/Yahalom.thy	Thu Oct 24 10:38:35 1996 +0200
@@ -52,19 +52,18 @@
 
          (*Alice receives the Server's (?) message, checks her Nonce, and
            uses the new session key to send Bob his Nonce.*)
-    YM4  "[| evs: yahalom lost;  A ~= B;  
+    YM4  "[| evs: yahalom lost;  A ~= Server;  A ~= B;  
              Says S A {|Crypt {|Agent B, Key K, Nonce NA, Nonce NB|} (shrK A),
-                        X|}
-               : set_of_list evs;
+                        X|}  : set_of_list evs;
              Says A B {|Agent A, Nonce NA|} : set_of_list evs |]
           ==> Says A B {|X, Crypt (Nonce NB) K|} # evs : yahalom lost"
 
          (*This message models possible leaks of session keys.  The Nonces
            identify the protocol run.*)
-    Revl "[| evs: yahalom lost;  A ~= Spy;
-             Says S A {|Crypt {|Agent B, Key K, Nonce NA, Nonce NB|} (shrK A),
-                        X|}
-               : set_of_list evs |]
+    Oops "[| evs: yahalom lost;  A ~= Spy;
+             Says Server A {|Crypt {|Agent B, Key K, Nonce NA, Nonce NB|} 
+                                   (shrK A),
+                             X|}  : set_of_list evs |]
           ==> Says A Spy {|Nonce NA, Nonce NB, Key K|} # evs : yahalom lost"
 
 end