Added "op" before "occs" to make sml/nj happy
authorpaulson
Fri Oct 17 11:10:13 1997 +0200 (1997-10-17)
changeset 39150eb9b9dd4de6
parent 3914 9e393b363c71
child 3916 be9ae8de1615
Added "op" before "occs" to make sml/nj happy
src/Pure/logic.ML
     1.1 --- a/src/Pure/logic.ML	Fri Oct 17 11:09:34 1997 +0200
     1.2 +++ b/src/Pure/logic.ML	Fri Oct 17 11:10:13 1997 +0200
     1.3 @@ -364,7 +364,7 @@
     1.4  fun looptest sign prems lhs rhs =
     1.5     is_Var (head_of lhs)
     1.6    orelse
     1.7 -   (exists (apl (lhs,occs)) (rhs :: prems))
     1.8 +   (exists (apl (lhs, op occs)) (rhs :: prems))
     1.9    orelse
    1.10     (null prems andalso
    1.11      Pattern.matches (#tsig (Sign.rep_sg sign)) (lhs, rhs));