src/Tools/eqsubst.ML
changeset 32032 a6a6e8031c14
parent 31301 952d2d0c4446
child 32149 ef59550a55d3
     1.1 --- a/src/Tools/eqsubst.ML	Fri Jul 17 21:33:00 2009 +0200
     1.2 +++ b/src/Tools/eqsubst.ML	Fri Jul 17 21:33:00 2009 +0200
     1.3 @@ -231,9 +231,9 @@
     1.4           or should I be using them somehow? *)
     1.5            fun mk_insts env =
     1.6              (Vartab.dest (Envir.type_env env),
     1.7 -             Envir.alist_of env);
     1.8 -          val initenv = Envir.Envir {asol = Vartab.empty,
     1.9 -                                     iTs = typinsttab, maxidx = ix2};
    1.10 +             Vartab.dest (Envir.term_env env));
    1.11 +          val initenv =
    1.12 +            Envir.Envir {maxidx = ix2, tenv = Vartab.empty, tyenv = typinsttab};
    1.13            val useq = Unify.smash_unifiers thry [a] initenv
    1.14  	            handle UnequalLengths => Seq.empty
    1.15  		               | Term.TERM _ => Seq.empty;