fact: Definition to_tactic {A B} (f: M (A |m- B)) : tactic := fun g=> gT <- goal_type g; mif unify gT B UniCoq then '(a, b) <- f; al <- to_goals a; ls <- T.filter_goals al; T.exact b g;; ret ls else failwith "nope".
imports: Mtac2(Base Datatypes List MTele MTeleMatch MTeleMatchDef MFixDef Sorts tactics.Tactics) Strings.String