FTY version of fsublis-var.
(fty-fsublis-var subst term) → new-term
Function:
(defun fty-fsublis-var (subst term) (declare (xargs :guard (and (symbol-pseudoterm-alistp subst) (pseudo-termp term)))) (let ((__function__ 'fty-fsublis-var)) (declare (ignorable __function__)) (fsublis-var (symbol-pseudoterm-alist-fix subst) (pseudo-term-fix term))))
Theorem:
(defthm pseudo-termp-of-fty-fsublis-var (b* ((new-term (fty-fsublis-var subst term))) (pseudo-termp new-term)) :rule-classes :rewrite)