(iconst-option-rename c$::iconst-option subst) → fty::result
Function:
(defun iconst-option-rename (c$::iconst-option subst) (declare (xargs :guard (and (c$::iconst-optionp c$::iconst-option) (ident-ident-alistp subst)))) (let ((__function__ 'iconst-option-rename)) (declare (ignorable __function__)) (c$::iconst-option-case c$::iconst-option :some (c$::iconst-fix (iconst-rename (c$::iconst-option-some->val c$::iconst-option) subst)) :none nil)))
Theorem:
(defthm iconst-optionp-of-iconst-option-rename (b* ((fty::result (iconst-option-rename c$::iconst-option subst))) (c$::iconst-optionp fty::result)) :rule-classes :rewrite)
Theorem:
(defthm iconst-option-rename-under-iff (iff (iconst-option-rename c$::iconst-option subst) c$::iconst-option))
Theorem:
(defthm iconst-option-rename-of-iconst-option-fix-iconst-option (equal (iconst-option-rename (c$::iconst-option-fix c$::iconst-option) subst) (iconst-option-rename c$::iconst-option subst)))
Theorem:
(defthm iconst-option-rename-iconst-option-equiv-congruence-on-iconst-option (implies (c$::iconst-option-equiv c$::iconst-option iconst-option-equiv) (equal (iconst-option-rename c$::iconst-option subst) (iconst-option-rename iconst-option-equiv subst))) :rule-classes :congruence)
Theorem:
(defthm iconst-option-rename-of-ident-ident-alist-fix-subst (equal (iconst-option-rename c$::iconst-option (ident-ident-alist-fix subst)) (iconst-option-rename c$::iconst-option subst)))
Theorem:
(defthm iconst-option-rename-ident-ident-alist-equiv-congruence-on-subst (implies (ident-ident-alist-equiv subst subst-equiv) (equal (iconst-option-rename c$::iconst-option subst) (iconst-option-rename c$::iconst-option subst-equiv))) :rule-classes :congruence)