Recognize designations of instances of second-order theorems.
(check-sothm-inst sothm-inst wrld) → yes/no
A designation of an instance of a second-order theorem has the form
Function:
(defun check-sothm-inst (sothm-inst wrld) (declare (xargs :guard (plist-worldp wrld))) (let ((__function__ 'check-sothm-inst)) (declare (ignorable __function__)) (and (true-listp sothm-inst) (>= (len sothm-inst) 2) (sothmp (car sothm-inst) wrld) (funvar-instp (cdr sothm-inst) wrld))))