src/HOL/Import/shuffler.ML
changeset 30473 e0b66c11e7e4
parent 29287 5b0bfd63b5da
child 30510 4120fc59dd85
equal deleted inserted replaced
30472:9dea0866021c 30473:e0b66c11e7e4
   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 =