Lambda expressions in a term.
(all-lambdas term ans) → final-ans
Theorem:
(defthm return-type-of-all-lambdas.final-ans (implies (and (pseudo-termp term) (pseudo-lambda-listp ans)) (b* ((?final-ans (all-lambdas term ans))) (pseudo-lambda-listp final-ans))) :rule-classes :rewrite)
Theorem:
(defthm return-type-of-all-lambdas-lst.final-ans (implies (and (pseudo-term-listp terms) (pseudo-lambda-listp ans)) (b* ((?final-ans (all-lambdas-lst terms ans))) (pseudo-lambda-listp final-ans))) :rule-classes :rewrite)