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/Provers/eqsubst.ML
changeset 19473 d87a8838afa4
parent 19047 670ce193b618
child 19835 81d6dc597559 
--- 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;
isabelle