changeset 59621 | 291934bac95e |
parent 59617 | b60e65ad13df |
child 59650 | ba26118128b7 |
--- a/src/HOL/Tools/Ctr_Sugar/ctr_sugar_util.ML Fri Mar 06 14:01:08 2015 +0100 +++ b/src/HOL/Tools/Ctr_Sugar/ctr_sugar_util.ML Fri Mar 06 15:58:56 2015 +0100 @@ -219,7 +219,7 @@ val ps = map_filter (fn (_, NONE) => NONE - | (var, SOME ct) => SOME (Thm.cterm_of thy (Var var), ct)) (vars' ~~ cts); + | (var, SOME ct) => SOME (Thm.global_cterm_of thy (Var var), ct)) (vars' ~~ cts); in Drule.cterm_instantiate ps thm end;