added missing case in pattern matching -- solves Waldmeister "Match" exceptions that have been plaguing some users
authorblanchet
Thu, 16 Jun 2011 13:50:35 +0200
changeset 43422 dcbedaf6f80c
parent 43421 926bfe067a32
child 43423 717880e98e6b
added missing case in pattern matching -- solves Waldmeister "Match" exceptions that have been plaguing some users
src/HOL/Tools/ATP/atp_problem.ML
--- a/src/HOL/Tools/ATP/atp_problem.ML	Thu Jun 16 13:50:35 2011 +0200
+++ b/src/HOL/Tools/ATP/atp_problem.ML	Thu Jun 16 13:50:35 2011 +0200
@@ -317,6 +317,7 @@
           AConn (c, [opn pos1 phi1, opn pos2 phi2])
         end
       | opn _ (AAtom t) = AAtom (t |> conj ? open_conjecture_term)
+      | opn _ phi = phi
   in opn (SOME (not conj)) end
 fun open_formula_line (Formula (ident, kind, phi, source, info)) =
     Formula (ident, kind, open_formula (kind = Conjecture) phi, source, info)