# HG changeset patch
# User wenzelm
# Date 1213109001 -7200
# Node ID c36c88fcdd22b5900639dc94056f5a41826ebb6e
# Parent  9a26c0d7a47a84d3a4d018629d154ff74b497de2
focus: actually declare constraints for local parameters;

diff -r 9a26c0d7a47a -r c36c88fcdd22 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