equal
deleted
inserted
replaced
120 |
120 |
121 (** Session keys are not used to encrypt other session keys **) |
121 (** Session keys are not used to encrypt other session keys **) |
122 |
122 |
123 Goal "evs : yahalom ==> \ |
123 Goal "evs : yahalom ==> \ |
124 \ ALL K KK. KK <= - (range shrK) --> \ |
124 \ ALL K KK. KK <= - (range shrK) --> \ |
125 \ (Key K : analz (Key``KK Un (knows Spy evs))) = \ |
125 \ (Key K : analz (Key`KK Un (knows Spy evs))) = \ |
126 \ (K : KK | Key K : analz (knows Spy evs))"; |
126 \ (K : KK | Key K : analz (knows Spy evs))"; |
127 by (etac yahalom.induct 1); |
127 by (etac yahalom.induct 1); |
128 by analz_knows_Spy_tac; |
128 by analz_knows_Spy_tac; |
129 by (REPEAT_FIRST (resolve_tac [allI, impI])); |
129 by (REPEAT_FIRST (resolve_tac [allI, impI])); |
130 by (REPEAT_FIRST (rtac analz_image_freshK_lemma)); |
130 by (REPEAT_FIRST (rtac analz_image_freshK_lemma)); |