equal
deleted
inserted
replaced
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 (*>*) |