Introduce a second-order function via a second-order version of defun-sk.
(defun-sk sofun ...) ; same as defun-sk
The inputs are identical to defun-sk.
The function
(defun-sk sofun ...) ; input form with defun-sk2 replaced by defun-sk
;; A predicate that recognizes injective functions: (defun-sk2 injective[?f] () (forall (x y) (implies (equal (?f x) (?f y)) (equal x y))))