fact: Definition destructn (n : nat) : tactic := bind (introsn n) (fun _ g => A <- M.evar Type; @intro_base A _ (FreshFromStr "tmp") destruct g).
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef