Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
focus: actually declare constraints for local parameters;
authorwenzelm
Tue, 10 Jun 2008 16:43:21 +0200
changeset 27119 c36c88fcdd22
parent 27118 9a26c0d7a47a
child 27120 b21eec437295
focus: actually declare constraints for local parameters;
src/Pure/variable.ML file | annotate | diff | comparison | revisions 
--- 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
isabelle