src/HOL/Auth/OtwayRees_AN.thy
changeset 2284 80ebd1a213fd
parent 2131 3106a99d30a5
child 2378 fc103154ad8f
     1.1 --- a/src/HOL/Auth/OtwayRees_AN.thy	Fri Nov 29 17:58:18 1996 +0100
     1.2 +++ b/src/HOL/Auth/OtwayRees_AN.thy	Fri Nov 29 18:03:21 1996 +0100
     1.3 @@ -45,15 +45,15 @@
     1.4               Says B' Server {|Agent A, Agent B, Nonce NA, Nonce NB|}
     1.5                 : set_of_list evs |]
     1.6            ==> Says Server B 
     1.7 -               {|Crypt {|Nonce NA, Agent A, Agent B, Key(newK evs)|} (shrK A),
     1.8 -                 Crypt {|Nonce NB, Agent A, Agent B, Key(newK evs)|} (shrK B)|}
     1.9 +               {|Crypt (shrK A) {|Nonce NA, Agent A, Agent B, Key(newK evs)|},
    1.10 +                 Crypt (shrK B) {|Nonce NB, Agent A, Agent B, Key(newK evs)|}|}
    1.11                # evs : otway lost"
    1.12  
    1.13           (*Bob receives the Server's (?) message and compares the Nonces with
    1.14  	   those in the message he previously sent the Server.*)
    1.15      OR4  "[| evs: otway lost;  A ~= B;
    1.16               Says S B {|X, 
    1.17 -                        Crypt {|Nonce NB, Agent A, Agent B, Key K|} (shrK B)|}
    1.18 +                        Crypt (shrK B) {|Nonce NB, Agent A, Agent B, Key K|}|}
    1.19                 : set_of_list evs;
    1.20               Says B Server {|Agent A, Agent B, Nonce NA, Nonce NB|}
    1.21                 : set_of_list evs |]
    1.22 @@ -63,8 +63,8 @@
    1.23             identify the protocol run.  B is not assumed to know shrK A.*)
    1.24      Oops "[| evs: otway lost;  B ~= Spy;
    1.25               Says Server B 
    1.26 -                      {|Crypt {|Nonce NA, Agent A, Agent B, Key K|} (shrK A), 
    1.27 -                        Crypt {|Nonce NB, Agent A, Agent B, Key K|} (shrK B)|}
    1.28 +                      {|Crypt (shrK A) {|Nonce NA, Agent A, Agent B, Key K|}, 
    1.29 +                        Crypt (shrK B) {|Nonce NB, Agent A, Agent B, Key K|}|}
    1.30                 : set_of_list evs |]
    1.31            ==> Says B Spy {|Nonce NA, Nonce NB, Key K|} # evs : otway lost"
    1.32