src/HOL/Auth/OtwayRees_Bad.ML
changeset 3919 c036caebfc75
parent 3730 6933d20f335f
child 3961 6a8996fb7d99
equal deleted inserted replaced
3918:94e0fdcb7b91 3919:c036caebfc75
   229 by (etac otway.induct 1);
   229 by (etac otway.induct 1);
   230 by analz_spies_tac;
   230 by analz_spies_tac;
   231 by (ALLGOALS
   231 by (ALLGOALS
   232     (asm_simp_tac (!simpset addcongs [conj_cong] 
   232     (asm_simp_tac (!simpset addcongs [conj_cong] 
   233                             addsimps [analz_insert_eq, analz_insert_freshK]
   233                             addsimps [analz_insert_eq, analz_insert_freshK]
   234                             setloop split_tac [expand_if])));
   234                             addsplits [expand_if])));
   235 (*Oops*)
   235 (*Oops*)
   236 by (blast_tac (!claset addSDs [unique_session_keys]) 4);
   236 by (blast_tac (!claset addSDs [unique_session_keys]) 4);
   237 (*OR4*) 
   237 (*OR4*) 
   238 by (Blast_tac 3);
   238 by (Blast_tac 3);
   239 (*OR3*)
   239 (*OR3*)