(modalist->modnames modalist) → modnames
Function:
(defun modalist->modnames (modalist) (declare (xargs :guard (modalist-p modalist))) (let ((__function__ 'modalist->modnames)) (declare (ignorable __function__)) (alist-keys (mbe :logic (modalist-fix modalist) :exec modalist))))
Theorem:
(defthm modnamelist-p-of-modalist->modnames (b* ((modnames (modalist->modnames modalist))) (modnamelist-p modnames)) :rule-classes :rewrite)
Theorem:
(defthm member-modalist->modnames (iff (member x (modalist->modnames modalist)) (modalist-lookup x modalist)))
Theorem:
(defthm modalist->modnames-of-modalist-fix-modalist (equal (modalist->modnames (modalist-fix modalist)) (modalist->modnames modalist)))
Theorem:
(defthm modalist->modnames-modalist-equiv-congruence-on-modalist (implies (modalist-equiv modalist modalist-equiv) (equal (modalist->modnames modalist) (modalist->modnames modalist-equiv))) :rule-classes :congruence)