Theorems about partition-rest-and-keyword-args.
Theorem:
(defthm true-listp-of-partition-rest-and-keyword.rest (implies (true-listp x) (mv-let (erp rest keypart) (partition-rest-and-keyword-args x keys) (declare (ignore keypart)) (implies (not erp) (true-listp rest)))) :rule-classes (:rewrite :type-prescription))
Theorem:
(defthm symbol-alistp-of-partition-rest-and-keyword.keypart (implies (true-listp x) (mv-let (erp rest keypart) (partition-rest-and-keyword-args x keys) (declare (ignore rest)) (implies (not erp) (symbol-alistp keypart)))))