src/Pure/Isar/expression.ML
changeset 37145 01aa36932739
parent 36674 d95f39448121
child 37313 715d25555ca6
     1.1 --- a/src/Pure/Isar/expression.ML	Thu May 27 15:28:23 2010 +0200
     1.2 +++ b/src/Pure/Isar/expression.ML	Thu May 27 17:41:27 2010 +0200
     1.3 @@ -162,9 +162,9 @@
     1.4      val type_parm_names = fold Term.add_tfreesT parm_types [] |> map fst;
     1.5  
     1.6      (* type inference and contexts *)
     1.7 -    val parm_types' = map (TypeInfer.paramify_vars o Logic.varifyT_global) parm_types;
     1.8 +    val parm_types' = map (Type_Infer.paramify_vars o Logic.varifyT_global) parm_types;
     1.9      val type_parms = fold Term.add_tvarsT parm_types' [] |> map (Logic.mk_type o TVar);
    1.10 -    val arg = type_parms @ map2 TypeInfer.constrain parm_types' insts';
    1.11 +    val arg = type_parms @ map2 Type_Infer.constrain parm_types' insts';
    1.12      val res = Syntax.check_terms ctxt arg;
    1.13      val ctxt' = ctxt |> fold Variable.auto_fixes res;
    1.14  
    1.15 @@ -345,9 +345,9 @@
    1.16        let
    1.17          val (parm_names, parm_types) = Locale.params_of thy loc |> map #1 |> split_list;
    1.18          val inst' = prep_inst ctxt parm_names inst;
    1.19 -        val parm_types' = map (TypeInfer.paramify_vars o
    1.20 +        val parm_types' = map (Type_Infer.paramify_vars o
    1.21            Term.map_type_tvar (fn ((x, _), S) => TVar ((x, i), S)) o Logic.varifyT_global) parm_types;
    1.22 -        val inst'' = map2 TypeInfer.constrain parm_types' inst';
    1.23 +        val inst'' = map2 Type_Infer.constrain parm_types' inst';
    1.24          val insts' = insts @ [(loc, (prfx, inst''))];
    1.25          val (insts'', _, _, ctxt' (* FIXME not used *) ) = check_autofix insts' [] [] ctxt;
    1.26          val inst''' = insts'' |> List.last |> snd |> snd;