doc-src/TutorialI/Protocol/Message.thy
changeset 32149 ef59550a55d3
parent 30607 c3d1590debd8
child 32265 fa8872f21ac3
equal deleted inserted replaced
32148:253f6808dabe 32149:ef59550a55d3
   913 done
   913 done
   914 
   914 
   915 lemmas Fake_parts_sing_imp_Un = Fake_parts_sing [THEN [2] rev_subsetD]
   915 lemmas Fake_parts_sing_imp_Un = Fake_parts_sing [THEN [2] rev_subsetD]
   916 
   916 
   917 method_setup spy_analz = {*
   917 method_setup spy_analz = {*
   918     Scan.succeed (SIMPLE_METHOD' o spy_analz_tac o local_clasimpset_of) *}
   918     Scan.succeed (SIMPLE_METHOD' o spy_analz_tac o clasimpset_of) *}
   919     "for proving the Fake case when analz is involved"
   919     "for proving the Fake case when analz is involved"
   920 
   920 
   921 method_setup atomic_spy_analz = {*
   921 method_setup atomic_spy_analz = {*
   922     Scan.succeed (SIMPLE_METHOD' o atomic_spy_analz_tac o local_clasimpset_of) *}
   922     Scan.succeed (SIMPLE_METHOD' o atomic_spy_analz_tac o clasimpset_of) *}
   923     "for debugging spy_analz"
   923     "for debugging spy_analz"
   924 
   924 
   925 method_setup Fake_insert_simp = {*
   925 method_setup Fake_insert_simp = {*
   926     Scan.succeed (SIMPLE_METHOD' o Fake_insert_simp_tac o local_simpset_of) *}
   926     Scan.succeed (SIMPLE_METHOD' o Fake_insert_simp_tac o simpset_of) *}
   927     "for debugging spy_analz"
   927     "for debugging spy_analz"
   928 
   928 
   929 
   929 
   930 end
   930 end
   931 (*>*)
   931 (*>*)