equal
deleted
inserted
replaced
101 val concl = Pretty.big_list "proposition:" [Syntax.pretty_term ctxt t] |
101 val concl = Pretty.big_list "proposition:" [Syntax.pretty_term ctxt t] |
102 in Pretty.big_list full_msg (assms @ [concl]) end |
102 in Pretty.big_list full_msg (assms @ [concl]) end |
103 |
103 |
104 fun replay_error ctxt msg rule thms t = error (Pretty.string_of (pretty_goal ctxt msg rule thms t)) |
104 fun replay_error ctxt msg rule thms t = error (Pretty.string_of (pretty_goal ctxt msg rule thms t)) |
105 |
105 |
106 fun replay_rule_error name ctxt = replay_error ctxt ("Failed to replay" ^ name ^ " proof step") |
106 fun replay_rule_error name ctxt = replay_error ctxt ("Failed to replay " ^ name ^ " proof step") |
107 |
107 |
108 fun trace_goal ctxt rule thms t = |
108 fun trace_goal ctxt rule thms t = |
109 trace ctxt (fn () => Pretty.string_of (pretty_goal ctxt "Goal" rule thms t)) |
109 trace ctxt (fn () => Pretty.string_of (pretty_goal ctxt "Goal" rule thms t)) |
110 |
110 |
111 fun as_prop (t as Const (\<^const_name>\<open>Trueprop\<close>, _) $ _) = t |
111 fun as_prop (t as Const (\<^const_name>\<open>Trueprop\<close>, _) $ _) = t |