author | blanchet |
Wed, 23 Apr 2014 10:23:26 +0200 | |
changeset 56634 | a001337c8d24 |
parent 56633 | 18f50d5f84ef |
child 56635 | b07c8ad23010 |
--- a/src/HOL/Tools/BNF/bnf_comp.ML Wed Apr 23 09:32:00 2014 +0200 +++ b/src/HOL/Tools/BNF/bnf_comp.ML Wed Apr 23 10:23:26 2014 +0200 @@ -707,7 +707,7 @@ fun mk_absT thy repT absT repU = let - val rho = Vartab.fold (cons o apsnd snd) (Sign.typ_match thy (repT, repU) Vartab.empty) []; + val rho = Vartab.fold (cons o apsnd snd) (Sign.typ_match thy (repT, repU) Vartab.empty) []; in Term.typ_subst_TVars rho absT end handle Type.TYPE_MATCH => raise Term.TYPE ("mk_absT", [repT, absT, repU], []);