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