Q.REFINE_EXISTS_TAC : term quotation -> tactic
- Q.REFINE_EXISTS_TAC `n` ([``n > x``], ``?m. m > x``); > val it = ([([``n > x``], ``n > x``)], fn) : (term list * term) list * (thm list -> thm)
- Q.REFINE_EXISTS_TAC `n + 2` ([``~P 0``], ``?p. P (p - 1)``); > val it = ([([``~P 0``], ``?n. P (n + 2 - 1)``)], fn) : (term list * term) list * (thm list -> thm)