src/HOL/Auth/TLS.ML
changeset 4831 dae4d63a1318
parent 4719 21af5c0be0c9
child 5076 fbc9d95b62ba
equal deleted inserted replaced
4830:bd73675adbed 4831:dae4d63a1318
   191 fun analz_induct_tac i = 
   191 fun analz_induct_tac i = 
   192     etac tls.induct i   THEN
   192     etac tls.induct i   THEN
   193     ClientKeyExch_tac  (i+6)  THEN	(*ClientKeyExch*)
   193     ClientKeyExch_tac  (i+6)  THEN	(*ClientKeyExch*)
   194     ALLGOALS (asm_simp_tac 
   194     ALLGOALS (asm_simp_tac 
   195               (simpset() addcongs [if_weak_cong]
   195               (simpset() addcongs [if_weak_cong]
   196                          addsimps (expand_ifs@pushes)))  THEN
   196                          addsimps (split_ifs@pushes)))  THEN
   197     (*Remove instances of pubK B:  the Spy already knows all public keys.
   197     (*Remove instances of pubK B:  the Spy already knows all public keys.
   198       Combining the two simplifier calls makes them run extremely slowly.*)
   198       Combining the two simplifier calls makes them run extremely slowly.*)
   199     ALLGOALS (asm_simp_tac 
   199     ALLGOALS (asm_simp_tac 
   200               (simpset() addcongs [if_weak_cong]
   200               (simpset() addcongs [if_weak_cong]
   201 			 addsimps [insert_absorb]));
   201 			 addsimps [insert_absorb]));
   403 by (ClientKeyExch_tac 7);
   403 by (ClientKeyExch_tac 7);
   404 by (REPEAT_FIRST (resolve_tac [allI, impI]));
   404 by (REPEAT_FIRST (resolve_tac [allI, impI]));
   405 by (REPEAT_FIRST (rtac analz_image_keys_lemma));
   405 by (REPEAT_FIRST (rtac analz_image_keys_lemma));
   406 by (ALLGOALS    (*18 seconds*)
   406 by (ALLGOALS    (*18 seconds*)
   407     (asm_simp_tac (analz_image_keys_ss 
   407     (asm_simp_tac (analz_image_keys_ss 
   408 		   addsimps (expand_ifs@pushes)
   408 		   addsimps (split_ifs@pushes)
   409 		   addsimps [range_sessionkeys_not_priK, 
   409 		   addsimps [range_sessionkeys_not_priK, 
   410                              analz_image_priK, certificate_def])));
   410                              analz_image_priK, certificate_def])));
   411 by (ALLGOALS (asm_simp_tac (simpset() addsimps [insert_absorb])));
   411 by (ALLGOALS (asm_simp_tac (simpset() addsimps [insert_absorb])));
   412 (*Fake*) 
   412 (*Fake*) 
   413 by (spy_analz_tac 1);
   413 by (spy_analz_tac 1);