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.
Added optimization: do nothing for empty list
authorpaulson
Fri, 14 Feb 1997 10:41:02 +0100
changeset 2617 b94dadf5b6be
parent 2616 704b6c7432cf
child 2618 15451c558a32
Added optimization: do nothing for empty list
src/Pure/type.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/type.ML	Fri Feb 14 10:40:23 1997 +0100
+++ b/src/Pure/type.ML	Fri Feb 14 10:41:02 1997 +0100
@@ -327,7 +327,8 @@
   in map_type_tvar inst end;
 
 (*Instantiation of type variables in terms *)
-fun inst_term_tvars(tsig, tye) = map_term_types (inst_typ_tvars(tsig, tye));
+fun inst_term_tvars (_,[]) t = t
+  | inst_term_tvars arg    t = map_term_types (inst_typ_tvars arg) t;
 
 
 (* norm_typ *)
isabelle