fact: Definition intro_simpl (var : name) : tactic := fun g => A <- M.evar Type; intro_base var (fun _ : A => idtac) g.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef