changeset 15660 | 255055554c67 |
parent 15570 | 8d8c70b41bab |
child 15922 | 7ef183f3fc98 |
--- a/src/Provers/Arith/fast_lin_arith.ML Wed Apr 06 18:13:30 2005 +0200 +++ b/src/Provers/Arith/fast_lin_arith.ML Thu Apr 07 09:24:35 2005 +0200 @@ -439,7 +439,7 @@ case add2 thm1 thm2 of NONE => (case try_add ([thm1] RL inj_thms) thm2 of NONE => ( valOf(try_add ([thm2] RL inj_thms) thm1) - handle OPTION => + handle Option => (trace_thm "" thm1; trace_thm "" thm2; sys_error "Lin.arith. failed to add thms") )