doc-src/TutorialI/Protocol/Message.thy
changeset 30548 2eef5e71edd6
parent 30509 e19d5b459a61
child 30607 c3d1590debd8
equal deleted inserted replaced
30547:4c2514625873 30548:2eef5e71edd6
   917 done
   917 done
   918 
   918 
   919 lemmas Fake_parts_sing_imp_Un = Fake_parts_sing [THEN [2] rev_subsetD]
   919 lemmas Fake_parts_sing_imp_Un = Fake_parts_sing [THEN [2] rev_subsetD]
   920 
   920 
   921 method_setup spy_analz = {*
   921 method_setup spy_analz = {*
   922     Method.ctxt_args (SIMPLE_METHOD' o gen_spy_analz_tac o local_clasimpset_of) *}
   922     Scan.succeed (SIMPLE_METHOD' o gen_spy_analz_tac o local_clasimpset_of) *}
   923     "for proving the Fake case when analz is involved"
   923     "for proving the Fake case when analz is involved"
   924 
   924 
   925 method_setup atomic_spy_analz = {*
   925 method_setup atomic_spy_analz = {*
   926     Method.ctxt_args (SIMPLE_METHOD' o atomic_spy_analz_tac o local_clasimpset_of) *}
   926     Scan.succeed (SIMPLE_METHOD' o atomic_spy_analz_tac o local_clasimpset_of) *}
   927     "for debugging spy_analz"
   927     "for debugging spy_analz"
   928 
   928 
   929 method_setup Fake_insert_simp = {*
   929 method_setup Fake_insert_simp = {*
   930     Method.ctxt_args (SIMPLE_METHOD' o Fake_insert_simp_tac o local_simpset_of) *}
   930     Scan.succeed (SIMPLE_METHOD' o Fake_insert_simp_tac o local_simpset_of) *}
   931     "for debugging spy_analz"
   931     "for debugging spy_analz"
   932 
   932 
   933 
   933 
   934 end
   934 end
   935 (*>*)
   935 (*>*)