src/HOL/Auth/Kerberos_BAN.ML
changeset 10833 c0844a30ea4e
parent 8741 61bc5ed22b62
child 11104 f2024fed9f0c
equal deleted inserted replaced
10832:e33b47e4246d 10833:c0844a30ea4e
   178 
   178 
   179 (** Session keys are not used to encrypt other session keys **)
   179 (** Session keys are not used to encrypt other session keys **)
   180 
   180 
   181 Goal "evs : kerberos_ban ==>                          \
   181 Goal "evs : kerberos_ban ==>                          \
   182 \  ALL K KK. KK <= - (range shrK) -->                 \
   182 \  ALL K KK. KK <= - (range shrK) -->                 \
   183 \         (Key K : analz (Key``KK Un (spies evs))) =  \
   183 \         (Key K : analz (Key`KK Un (spies evs))) =  \
   184 \         (K : KK | Key K : analz (spies evs))";
   184 \         (K : KK | Key K : analz (spies evs))";
   185 by (etac kerberos_ban.induct 1);
   185 by (etac kerberos_ban.induct 1);
   186 by analz_spies_tac;
   186 by analz_spies_tac;
   187 by (REPEAT_FIRST (resolve_tac [allI, impI]));
   187 by (REPEAT_FIRST (resolve_tac [allI, impI]));
   188 by (REPEAT_FIRST (rtac analz_image_freshK_lemma));
   188 by (REPEAT_FIRST (rtac analz_image_freshK_lemma));