src/HOL/Auth/NS_Public.thy
changeset 3466 30791e5a69c4
parent 3465 e85c24717cad
child 3519 ab0a9fbed4c0
equal deleted inserted replaced
3465:e85c24717cad 3466:30791e5a69c4
    29           ==> Says A B (Crypt (pubK B) {|Nonce NA, Agent A|})
    29           ==> Says A B (Crypt (pubK B) {|Nonce NA, Agent A|})
    30                  # evs  :  ns_public"
    30                  # evs  :  ns_public"
    31 
    31 
    32          (*Bob responds to Alice's message with a further nonce*)
    32          (*Bob responds to Alice's message with a further nonce*)
    33     NS2  "[| evs: ns_public;  A ~= B;  Nonce NB ~: used evs;
    33     NS2  "[| evs: ns_public;  A ~= B;  Nonce NB ~: used evs;
    34              Says A' B (Crypt (pubK B) {|Nonce NA, Agent A|})
    34              Says A' B (Crypt (pubK B) {|Nonce NA, Agent A|}) : set evs |]
    35                : set evs |]
       
    36           ==> Says B A (Crypt (pubK A) {|Nonce NA, Nonce NB, Agent B|})
    35           ==> Says B A (Crypt (pubK A) {|Nonce NA, Nonce NB, Agent B|})
    37                 # evs  :  ns_public"
    36                 # evs  :  ns_public"
    38 
    37 
    39          (*Alice proves her existence by sending NB back to Bob.*)
    38          (*Alice proves her existence by sending NB back to Bob.*)
    40     NS3  "[| evs: ns_public;  A ~= B;
    39     NS3  "[| evs: ns_public;  A ~= B;