(* Title: HOL/Tools/Meson/meson_tactic.ML Author: Jia Meng, Cambridge University Computer Laboratory and NICTA Author: Jasmin Blanchette, TU Muenchen
The "meson" proof method for HOL.
*)
signature MESON_TACTIC = sig val meson_general_tac : Proof.context -> thm list -> int -> tactic end;
structure Meson_Tactic : MESON_TACTIC = struct
fun meson_general_tac ctxt ths = letval ctxt' = put_claset HOL_cs ctxt in
Meson.meson_tac ctxt' (maps (snd o Meson_Clausify.cnf_axiom Meson.simp_options_all_true ctxt'
{new_skolem = false, combs = true, refl = true} 0) ths) end
(* This is part of a workaround to avoid freezing schematic variables in \<^text>\<open>using\<close> facts. See
\<^file>\<open>~~/src/HOL/Tools/Metis/metis_tactic.ML\<close> for details. *) val has_tvar = exists_type (exists_subtype (fn TVar _ => true | _ => false)) o Thm.prop_of
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.