fact: Definition to_T {A} : (A *m mlist (goal _)) -> tactic := (fun '(m: a, gs) g => exact a g;; let gs := dreduce (@mmap) (mmap (mpair tt) gs) in M.ret gs )%MC.
imports: Mtac2(Base Datatypes List Sorts tactics.Tactics) Strings.String