changeset 77879 | dd222e2af01a |
parent 74501 | 0803dd7f920d |
child 80306 | c2537860ccf8 |
--- a/src/HOL/Tools/Meson/meson.ML Tue Apr 18 21:47:40 2023 +0200 +++ b/src/HOL/Tools/Meson/meson.ML Tue Apr 18 22:24:48 2023 +0200 @@ -358,7 +358,7 @@ Variable.variant_fixes [name_of (HOLogic.dest_Trueprop (Thm.concl_of th))] ctxt; val spec' = spec |> Thm.instantiate - (TVars.empty, Vars.make [(spec_var, Thm.cterm_of ctxt' (Free (x, snd spec_var)))]); + (TVars.empty, Vars.make1 (spec_var, Thm.cterm_of ctxt' (Free (x, snd spec_var)))); in (th RS spec', ctxt') end end;