Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/ATP/atp_proof.ML
changeset 50521 bec828f3364e
parent 50236 476a3350589c
child 50590 9d2f223ab6d9 
--- a/src/HOL/Tools/ATP/atp_proof.ML	Thu Dec 13 22:49:07 2012 +0100
+++ b/src/HOL/Tools/ATP/atp_proof.ML	Thu Dec 13 22:49:08 2012 +0100
@@ -364,7 +364,7 @@
   | is_same_formula _ subst (AAtom tm1) (AAtom tm2) = is_same_term subst tm1 tm2
   | is_same_formula _ _ _ _ = false
 
-fun matching_formula_line_identifier phi (Formula (ident, _, phi', _, _)) =
+fun matching_formula_line_identifier phi (Formula ((ident, _), _, phi', _, _)) =
     if is_same_formula true [] phi phi' then SOME (ident, phi') else NONE
   | matching_formula_line_identifier _ _ = NONE
isabelle