fact: Definition ltac (t : string) (args : mlist dyn) : tactic := fun g => match g with | Metavar s ty el => '(m: v, l) <- @M.call_ltac s ty t args; M.unify_or_fail UniCoq v el;; let l' := dreduce (@mmap) (mmap (mpair tt) l) in M.ret l' end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic intf.Sorts) Strings.String NArith.BinNat NArith.BinNatDef