fact: Definition tintro {A P} (f: forall (x:A), ttac (P x)) : ttac (forall (x:A), P x) := M.nu (FreshFrom f) mNone (fun x=> '(m: v, gs) <- f x; a <- M.abs_fun x v; b <- T.close_goals x (mmap (fun g=>(m: tt, g)) gs); let b := mmap msnd b in M.ret (m: a, b)).
imports: Mtac2(Base Datatypes List Sorts tactics.Tactics) Strings.String