src/HOL/Auth/Yahalom_Bad.ML
changeset 10833 c0844a30ea4e
parent 7499 23e090051cb8
child 11104 f2024fed9f0c
equal deleted inserted replaced
10832:e33b47e4246d 10833:c0844a30ea4e
   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));