SELECT_RULE : thm -> thm
A |- ?x. P
------------------ SELECT_RULE
A |- P[(@x.P)/x]
|- ?f. ONE_ONE f /\ ~ONTO f
- SELECT_RULE INFINITY_AX;
> val it =
|- ONE_ONE (@f. ONE_ONE f /\ ~ONTO f) /\ ~ONTO @f. ONE_ONE f /\ ~ONTO f
: thm