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.
read_instantiate: declare names of TVars as well (temporary workaround for no-freeze feature of type inference);
authorwenzelm
Wed, 06 Sep 2006 22:48:36 +0200
changeset 20487 6ac7a4fc32a0
parent 20486 02ca20e33030
child 20488 121bc2135bd3
read_instantiate: declare names of TVars as well (temporary workaround for no-freeze feature of type inference);
src/Pure/Isar/rule_insts.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/rule_insts.ML	Wed Sep 06 17:39:52 2006 +0200
+++ b/src/Pure/Isar/rule_insts.ML	Wed Sep 06 22:48:36 2006 +0200
@@ -129,7 +129,8 @@
 
 fun read_instantiate ctxt mixed_insts thm =
   let
-    val ctxt' = ctxt |> Variable.declare_thm thm;
+    val ctxt' = ctxt |> Variable.declare_thm thm
+      |> fold (fn a => Variable.declare_internal (Logic.mk_type (TFree (a, [])))) (Drule.add_used thm []);  (* FIXME tmp *)
     val tvars = Drule.fold_terms Term.add_tvars thm [];
     val vars = Drule.fold_terms Term.add_vars thm [];
     val ((type_insts, term_insts), insts) = read_insts ctxt' (map snd mixed_insts) (tvars, vars);
isabelle