equal
deleted
inserted
replaced
733 thms) |
733 thms) |
734 in lmap |> fold (add_thm false) helper_ths end |
734 in lmap |> fold (add_thm false) helper_ths end |
735 in (mode, add_type_thm (type_ext thy (map prop_of (cls @ ths))) lmap) end |
735 in (mode, add_type_thm (type_ext thy (map prop_of (cls @ ths))) lmap) end |
736 |
736 |
737 fun refute cls = |
737 fun refute cls = |
738 Metis.Resolution.loop (Metis.Resolution.new Metis.Resolution.default cls); |
738 Metis.Resolution.loop (Metis.Resolution.new Metis.Resolution.default {axioms = cls, conjecture = []}); |
739 |
739 |
740 fun is_false t = t aconv (HOLogic.mk_Trueprop HOLogic.false_const); |
740 fun is_false t = t aconv (HOLogic.mk_Trueprop HOLogic.false_const); |
741 |
741 |
742 fun common_thm ths1 ths2 = exists (member Thm.eq_thm ths1) (map Meson.make_meta_clause ths2); |
742 fun common_thm ths1 ths2 = exists (member Thm.eq_thm ths1) (map Meson.make_meta_clause ths2); |
743 |
743 |