src/Pure/variable.ML
changeset 55635 00e900057b38
parent 55014 a93f496f6c30
child 55948 bb21b380f65d
--- a/src/Pure/variable.ML	Thu Feb 20 21:04:24 2014 +0100
+++ b/src/Pure/variable.ML	Thu Feb 20 21:27:14 2014 +0100
@@ -32,7 +32,7 @@
   val lookup_const: Proof.context -> string -> string option
   val is_const: Proof.context -> string -> bool
   val declare_const: string * string -> Proof.context -> Proof.context
-  val next_bound: string * typ -> Proof.context -> string * Proof.context
+  val next_bound: string * typ -> Proof.context -> term * Proof.context
   val revert_bounds: Proof.context -> term -> term
   val is_fixed: Proof.context -> string -> bool
   val newly_fixed: Proof.context -> Proof.context -> string -> bool
@@ -313,7 +313,7 @@
   let
     val b = Name.bound (#1 (#bounds (rep_data ctxt)));
     val ctxt' = ctxt |> map_bounds (fn (next, bounds) => (next + 1, ((b, T), a) :: bounds));
-  in (b, ctxt') end;
+  in (Free (b, T), ctxt') end;
 
 fun revert_bounds ctxt t =
   (case #2 (#bounds (rep_data ctxt)) of