Recognizer for when a given term calls only
For a term
Function:
(defun logic-fnsp (term wrld) (declare (xargs :guard (and (plist-worldp wrld) (pseudo-termp term)))) (cond ((variablep term) t) ((fquotep term) t) ((flambdap (ffn-symb term)) (and (logic-fnsp (lambda-body (ffn-symb term)) wrld) (logic-fns-listp (fargs term) wrld))) ((programp (ffn-symb term) wrld) nil) (t (logic-fns-listp (fargs term) wrld))))