equal
deleted
inserted
replaced
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")]; |