fact: Definition eexists: tactic := fun g=> T <- M.evar Type; x <- M.evar T; l <- mexists x g; let res := dreduce (@mapp) (l +m+ [m:(m: tt, AnyMetavar Typeₛ _ x)]) in M.ret res.
imports: Strings.String ssrmatching.ssrmatching Mtac2(Logic Datatypes List Utils Logic Sorts MTeleMatch) Strings.String NArith.BinNat NArith.BinNatDef