fact: Definition apply_ : tactic := fun g => match g with | Metavar _ _ gevar => G <- M.goal_type g; x <- M.solve_typeclass_or_fail G; M.cumul_or_fail UniCoq x gevar;; M.ret [m:] end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef