src/HOL/Tools/res_axioms.ML
changeset 21096 8f3dffd52db2
parent 21071 8d0245c5ed9e
child 21102 7f2ebe5c5b72
equal deleted inserted replaced
21095:2c9f73fa973c 21096:8f3dffd52db2
   686 
   686 
   687 fun cnf_rules_of_ths ths = List.concat (map skolem_use_cache_thm ths);
   687 fun cnf_rules_of_ths ths = List.concat (map skolem_use_cache_thm ths);
   688 
   688 
   689 fun meson_meth ths ctxt =
   689 fun meson_meth ths ctxt =
   690   Method.SIMPLE_METHOD' HEADGOAL
   690   Method.SIMPLE_METHOD' HEADGOAL
   691     (CHANGED_PROP o Meson.meson_claset_tac (cnf_rules_of_ths ths) (local_claset_of ctxt));
   691     (CHANGED_PROP o Meson.meson_claset_tac (cnf_rules_of_ths ths) HOL_cs);
   692 
   692 
   693 val meson_method_setup =
   693 val meson_method_setup =
   694   Method.add_methods
   694   Method.add_methods
   695     [("meson", Method.thms_ctxt_args meson_meth,
   695     [("meson", Method.thms_ctxt_args meson_meth,
   696       "MESON resolution proof procedure")];
   696       "MESON resolution proof procedure")];