fact: Definition eexact {A} (x:A) : tactic := fun g => match g with | Metavar _ _ g => M.cumul_or_fail UniCoq x g;; l <- M.collect_evars g; M.map (fun d => '(Metavar _ _ g) <- M.dyn_to_goal d; M.ret (m: tt, AnyMetavar _ _ g)) l end.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef