equal
deleted
inserted
replaced
660 end |
660 end |
661 |
661 |
662 fun search_meth ctxt = |
662 fun search_meth ctxt = |
663 let |
663 let |
664 val thy = ProofContext.theory_of ctxt |
664 val thy = ProofContext.theory_of ctxt |
665 val prems = Assumption.prems_of ctxt |
665 val prems = Assumption.all_prems_of ctxt |
666 in |
666 in |
667 Method.SIMPLE_METHOD' (gen_shuffle_tac thy true (map (pair "premise") prems)) |
667 Method.SIMPLE_METHOD' (gen_shuffle_tac thy true (map (pair "premise") prems)) |
668 end |
668 end |
669 |
669 |
670 fun add_shuffle_rule thm thy = |
670 fun add_shuffle_rule thm thy = |