src/Tools/eqsubst.ML
changeset 32960 69916a850301
parent 32740 9dd0a2f83429
child 33243 17014b1b9353
     1.1 --- a/src/Tools/eqsubst.ML	Sat Oct 17 01:05:59 2009 +0200
     1.2 +++ b/src/Tools/eqsubst.ML	Sat Oct 17 14:43:18 2009 +0200
     1.3 @@ -235,13 +235,13 @@
     1.4            val initenv =
     1.5              Envir.Envir {maxidx = ix2, tenv = Vartab.empty, tyenv = typinsttab};
     1.6            val useq = Unify.smash_unifiers thry [a] initenv
     1.7 -	            handle UnequalLengths => Seq.empty
     1.8 -		               | Term.TERM _ => Seq.empty;
     1.9 +              handle UnequalLengths => Seq.empty
    1.10 +                   | Term.TERM _ => Seq.empty;
    1.11            fun clean_unify' useq () =
    1.12                (case (Seq.pull useq) of
    1.13                   NONE => NONE
    1.14                 | SOME (h,t) => SOME (mk_insts h, Seq.make (clean_unify' t)))
    1.15 -	            handle UnequalLengths => NONE
    1.16 +              handle UnequalLengths => NONE
    1.17                     | Term.TERM _ => NONE
    1.18          in
    1.19            (Seq.make (clean_unify' useq))