fact: Definition select (T : Type) : gtactic T := A <- goal_type; match_goal with [[ x : T |- A ]] => T.ret x end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef