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 : thm =
|- ONE_ONE (@f. ONE_ONE f /\ ~ONTO f) /\ ~ONTO (@f. ONE_ONE f /\ ~ONTO f)