fact: Definition nconstructor (n : nat) : tactic := A <- goal_type; match n with | 0 => M.raise ConstructorsStartsFrom1 | S n => '(mkInd_dyn _ _ _ l) <- M.constrs A; match mnth_error l n with | mSome d => dcase d as x in apply x | mNone => raise CantFindConstructor end end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef