Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/Pure/Isar/specification.ML
changeset 46215 0da9433f959e
parent 45601 d5178f19b671
child 46217 7b19666f0e3d 
--- a/src/Pure/Isar/specification.ML	Sat Jan 14 16:58:29 2012 +0100
+++ b/src/Pure/Isar/specification.ML	Sat Jan 14 17:45:04 2012 +0100
@@ -345,7 +345,8 @@
             val (Ts, _) = ctxt'
               |> fold Variable.declare_term props
               |> fold_map Proof_Context.inferred_param xs;
-            val asm = Term.list_all_free (xs ~~ Ts, Logic.list_implies (props, thesis));
+            val params = map Free (xs ~~ Ts);
+            val asm = fold_rev Logic.all params (Logic.list_implies (props, thesis));
             val _ = ctxt' |> Proof_Context.add_fixes (map (fn b => (b, NONE, NoSyn)) bs);
           in
             ctxt'
isabelle