changeset 74282 | c2ee8d993d6a |
parent 74075 | a5bab59d580b |
child 74346 | 55007a70bd96 |
--- a/src/HOL/Tools/Meson/meson.ML Thu Sep 09 23:07:02 2021 +0200 +++ b/src/HOL/Tools/Meson/meson.ML Fri Sep 10 14:59:19 2021 +0200 @@ -358,7 +358,8 @@ val ([x], ctxt') = Variable.variant_fixes [name_of (HOLogic.dest_Trueprop (Thm.concl_of th))] ctxt; val spec' = spec - |> Thm.instantiate ([], [(spec_var, Thm.cterm_of ctxt' (Free (x, snd spec_var)))]); + |> Thm.instantiate + (TVars.empty, Vars.make [(spec_var, Thm.cterm_of ctxt' (Free (x, snd spec_var)))]); in (th RS spec', ctxt') end end;