src/Tools/nbe.ML
changeset 37145 01aa36932739
parent 36982 1d4478a797c2
child 37146 f652333bbf8e
     1.1 --- a/src/Tools/nbe.ML	Thu May 27 15:28:23 2010 +0200
     1.2 +++ b/src/Tools/nbe.ML	Thu May 27 17:41:27 2010 +0200
     1.3 @@ -506,7 +506,7 @@
     1.4              val ts' = take_until is_dict ts;
     1.5              val c = const_of_idx idx;
     1.6              val T = map_type_tvar (fn ((v, i), _) =>
     1.7 -              TypeInfer.param typidx (v ^ string_of_int i, []))
     1.8 +              Type_Infer.param typidx (v ^ string_of_int i, []))
     1.9                  (Sign.the_const_type thy c);
    1.10              val typidx' = typidx + 1;
    1.11            in of_apps bounds (Term.Const (c, T), ts') typidx' end
    1.12 @@ -548,9 +548,9 @@
    1.13    let
    1.14      val ty' = typ_of_itype program vs0 ty;
    1.15      fun type_infer t =
    1.16 -      singleton (TypeInfer.infer_types (Syntax.pp_global thy) (Sign.tsig_of thy) I
    1.17 +      singleton (Type_Infer.infer_types (Syntax.pp_global thy) (Sign.tsig_of thy) I
    1.18          (try (Type.strip_sorts o Sign.the_const_type thy)) (K NONE) Name.context 0)
    1.19 -      (TypeInfer.constrain ty' t);
    1.20 +      (Type_Infer.constrain ty' t);
    1.21      fun check_tvars t = if null (Term.add_tvars t []) then t else
    1.22        error ("Illegal schematic type variables in normalized term: "
    1.23          ^ setmp_CRITICAL show_types true (Syntax.string_of_term_global thy) t);