src/Provers/splitter.ML
changeset 29548 02a52ae34b7a
parent 28839 32d498cf7595
child 30510 4120fc59dd85
--- a/src/Provers/splitter.ML	Sat Jan 17 12:38:50 2009 +0100
+++ b/src/Provers/splitter.ML	Sun Jan 18 13:53:15 2009 +0100
@@ -146,7 +146,7 @@
 
 fun mk_cntxt_splitthm t tt T =
   let fun repl lev t =
-    if incr_boundvars lev tt aconv t then Bound lev
+    if Pattern.aeconv(incr_boundvars lev tt, t) then Bound lev
     else case t of
         (Abs (v, T2, t)) => Abs (v, T2, repl (lev+1) t)
       | (Bound i) => Bound (if i>=lev then i+1 else i)