Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added "op" before "occs" to make sml/nj happy
authorpaulson
Fri, 17 Oct 1997 11:10:13 +0200
changeset 3915 0eb9b9dd4de6
parent 3914 9e393b363c71
child 3916 be9ae8de1615
Added "op" before "occs" to make sml/nj happy
src/Pure/logic.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/logic.ML	Fri Oct 17 11:09:34 1997 +0200
+++ b/src/Pure/logic.ML	Fri Oct 17 11:10:13 1997 +0200
@@ -364,7 +364,7 @@
 fun looptest sign prems lhs rhs =
    is_Var (head_of lhs)
   orelse
-   (exists (apl (lhs,occs)) (rhs :: prems))
+   (exists (apl (lhs, op occs)) (rhs :: prems))
   orelse
    (null prems andalso
     Pattern.matches (#tsig (Sign.rep_sg sign)) (lhs, rhs));
isabelle