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