PEXISTS_TAC : (term -> tactic)
A ?- ?p. t ============= EXISTS_TAC "q" A ?- t[q/p]
?- ?(x,y). (x,y)=(1,2)
PEXISTS_TAC "(1,2)" THEN REFL_TAC