src/Pure/variable.ML

--- a/src/Pure/variable.ML	Tue Jun 10 16:43:16 2008 +0200
+++ b/src/Pure/variable.ML	Tue Jun 10 16:43:21 2008 +0200
@@ -468,7 +468,8 @@
     val (xs', ctxt') = variant_fixes xs ctxt;
     val ps' = ListPair.map (cert o Free) (xs', Ts);
     val goal' = fold forall_elim_prop ps' goal;
-  in ((ps', goal'), ctxt') end;
+    val ctxt'' = ctxt' |> fold (declare_constraints o Thm.term_of) ps';
+  in ((ps', goal'), ctxt'') end;
 
 fun focus_subgoal i st =
   let