src/HOL/Tools/Sledgehammer/metis_tactics.ML
changeset 37619 bcb19259f92a
parent 37578 9367cb36b1c4
child 37623 295f3a9b44b6
equal deleted inserted replaced
37618:fa57a87f92a0 37619:bcb19259f92a
   786     if exists_type type_has_topsort (prop_of st0) then
   786     if exists_type type_has_topsort (prop_of st0) then
   787       (warning ("Metis: Proof state contains the universal sort {}"); Seq.empty)
   787       (warning ("Metis: Proof state contains the universal sort {}"); Seq.empty)
   788     else
   788     else
   789       (Meson.MESON (maps neg_clausify)
   789       (Meson.MESON (maps neg_clausify)
   790                    (fn cls => resolve_tac (FOL_SOLVE mode ctxt cls ths) 1)
   790                    (fn cls => resolve_tac (FOL_SOLVE mode ctxt cls ths) 1)
   791                    ctxt i
   791                    ctxt i) st0
   792        THEN Meson_Tactic.expand_defs_tac st0) st0
       
   793      handle ERROR msg => raise METIS ("generic_metis_tac", msg)
   792      handle ERROR msg => raise METIS ("generic_metis_tac", msg)
   794   end
   793   end
   795   handle METIS (loc, msg) =>
   794   handle METIS (loc, msg) =>
   796          if mode = HO then
   795          if mode = HO then
   797            (warning ("Metis: Falling back on \"metisFT\".");
   796            (warning ("Metis: Falling back on \"metisFT\".");