diff -r 896eb8056e97 -r d87a8838afa4 src/Provers/eqsubst.ML
--- a/src/Provers/eqsubst.ML	Wed Apr 26 20:34:11 2006 +0200
+++ b/src/Provers/eqsubst.ML	Wed Apr 26 22:38:05 2006 +0200
@@ -61,9 +61,8 @@
           in
           (case t' of
             (_ $ _) => Seq.append(maux (IsaFTerm.focus_left ft),
-                       Seq.cons(f ft,
-                                  maux (IsaFTerm.focus_right ft)))
-          | (Abs _) => Seq.cons(f ft, maux (IsaFTerm.focus_abs ft))
+                       Seq.cons (f ft) (maux (IsaFTerm.focus_right ft)))
+          | (Abs _) => Seq.cons (f ft) (maux (IsaFTerm.focus_abs ft))
           | leaf => Seq.single (f ft)) end
     in maux ft end;
 
@@ -76,10 +75,9 @@
           in
           (case (IsaFTerm.focus_of_fcterm ft) of
             (_ $ _) => Seq.append(maux (IsaFTerm.focus_left ft),
-                       Seq.cons(hereseq,
-                                  maux (IsaFTerm.focus_right ft)))
-          | (Abs _) => Seq.cons(hereseq, maux (IsaFTerm.focus_abs ft))
-          | leaf => Seq.single (hereseq))
+                       Seq.cons hereseq (maux (IsaFTerm.focus_right ft)))
+          | (Abs _) => Seq.cons hereseq (maux (IsaFTerm.focus_abs ft))
+          | leaf => Seq.single hereseq)
           end
     in maux ft end;