equal
deleted
inserted
replaced
539 (["Assumptions:"] @ map (Display.string_of_thm ctxt) asms @ [""] @ |
539 (["Assumptions:"] @ map (Display.string_of_thm ctxt) asms @ [""] @ |
540 ["Proved:", Display.string_of_thm ctxt fls, ""] @ |
540 ["Proved:", Display.string_of_thm ctxt fls, ""] @ |
541 (if count <> warning_count_max then [] |
541 (if count <> warning_count_max then [] |
542 else ["\n(Reached maximal message count -- disabling future warnings)"]))); |
542 else ["\n(Reached maximal message count -- disabling future warnings)"]))); |
543 warning "Linear arithmetic should have refuted the assumptions.\n\ |
543 warning "Linear arithmetic should have refuted the assumptions.\n\ |
544 \Please inform Tobias Nipkow (nipkow@in.tum.de).") |
544 \Please inform Tobias Nipkow.") |
545 end; |
545 end; |
546 in fls end |
546 in fls end |
547 handle FalseE thm => trace_thm ctxt "False reached early:" thm |
547 handle FalseE thm => trace_thm ctxt "False reached early:" thm |
548 end; |
548 end; |
549 |
549 |