# HG changeset patch # User wenzelm # Date 1427645932 -7200 # Node ID 616cabc3ab519919b9527c7c6175bf609bfabcf9 # Parent 57820650bd11c79568327256ed5603daeba1c091 avoid low-level tsig operations; diff -r 57820650bd11 -r 616cabc3ab51 src/HOL/Tools/functor.ML --- a/src/HOL/Tools/functor.ML Sun Mar 29 17:54:22 2015 +0200 +++ b/src/HOL/Tools/functor.ML Sun Mar 29 18:18:52 2015 +0200 @@ -41,8 +41,9 @@ (* type analysis *) -fun term_with_typ ctxt T t = Envir.subst_term_types - (Type.typ_match (Proof_Context.tsig_of ctxt) (fastype_of t, T) Vartab.empty) t; +fun term_with_typ ctxt T t = + Envir.subst_term_types + (Sign.typ_match (Proof_Context.theory_of ctxt) (fastype_of t, T) Vartab.empty) t; fun find_atomic ctxt T = let