fact: Definition introsn_cont (cont: tactic) : nat -> tactic := fun n '(Metavar _ _ g) => (mfix2 f (n : nat) (g : goal gs_any) : M (mlist (unit *m goal gs_any)) := open_and_apply (fun g => match n, g with | 0, g => cont g | S n', Metavar s T _ => intro_anonymous T g >>= f n' end) g) n (AnyMetavar _ _ g).
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef