fact: Definition with_goal {A} (f : goal gs_open -> M A) (g : goal gs_open) : M.t _ := match g with | Metavar _ _ g' => y <- f g; M.ret [m: (m: y, AnyMetavar _ _ g')] end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic intf.Sorts) Strings.String NArith.BinNat NArith.BinNatDef