fact: Definition left : tactic := A <- goal_type; '(mkInd_dyn _ _ _ l) <- M.constrs A; match l with | d :m: [m: _ ] => dcase d as x in apply x | _ => raise Not2Constructor end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef