src/HOL/Tools/Sledgehammer/metis_tactics.ML
changeset 39352 7d850b17a7a6
parent 39269 c2795d8a2461
child 39356 1ccc5c9ee343
equal deleted inserted replaced
39351:1e118007e41a 39352:7d850b17a7a6
   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