fact: Definition typed_intros (T : Type) : tactic := fun g => (mfix1 f (g : goal gs_open) : M _ := mtry bind (typed_intro T) (fun _ => f) g with | NotThatType => idtac g end) g.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef