PSPEC_TAC : term * term -> tactic
A ?- t
================= PSPEC_TAC (q,p)
A ?- !x. t[p/q]
- g `1 + 2 = 2 + 1`;
> val it =
Proof manager status: 1 proof.
1. Incomplete:
Initial goal:
1 + 2 = 2 + 1
- e (PSPEC_TAC (Term`(1,2)`, Term`(x:num,y:num)`));
OK..
1 subgoal:
> val it =
!(x,y). x + y = y + x
: proof