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