		Search-engine friendly clone of the ACL2 documentation.

Abstract-syntax-rename

Transunit-ensemble-rename

Signature
(transunit-ensemble-rename transunit-ensemble subst) → fty::result
Arguments: transunit-ensemble — Guard (transunit-ensemblep transunit-ensemble).; subst — Guard (ident-ident-alistp subst).
Returns: fty::result — Type (transunit-ensemblep fty::result).

Definitions and Theorems

Function: transunit-ensemble-rename

(defun transunit-ensemble-rename (transunit-ensemble subst)
  (declare
       (xargs :guard (and (transunit-ensemblep transunit-ensemble)
                          (ident-ident-alistp subst))))
  (declare (ignorable transunit-ensemble subst))
  (let ((__function__ 'transunit-ensemble-rename))
    (declare (ignorable __function__))
    (transunit-ensemble
         (filepath-transunit-map-rename
              (transunit-ensemble->unwrap transunit-ensemble)
              subst))))

Theorem: transunit-ensemblep-of-transunit-ensemble-rename

(defthm transunit-ensemblep-of-transunit-ensemble-rename
  (b* ((fty::result
            (transunit-ensemble-rename transunit-ensemble subst)))
    (transunit-ensemblep fty::result))
  :rule-classes :rewrite)

Theorem: transunit-ensemble-rename-of-transunit-ensemble-fix-transunit-ensemble

(defthm
 transunit-ensemble-rename-of-transunit-ensemble-fix-transunit-ensemble
 (equal (transunit-ensemble-rename
             (c$::transunit-ensemble-fix transunit-ensemble)
             subst)
        (transunit-ensemble-rename transunit-ensemble subst)))

Theorem: transunit-ensemble-rename-transunit-ensemble-equiv-congruence-on-transunit-ensemble

(defthm
 transunit-ensemble-rename-transunit-ensemble-equiv-congruence-on-transunit-ensemble
 (implies
   (c$::transunit-ensemble-equiv transunit-ensemble
                                 transunit-ensemble-equiv)
   (equal
        (transunit-ensemble-rename transunit-ensemble subst)
        (transunit-ensemble-rename transunit-ensemble-equiv subst)))
 :rule-classes :congruence)

Theorem: transunit-ensemble-rename-of-ident-ident-alist-fix-subst

(defthm transunit-ensemble-rename-of-ident-ident-alist-fix-subst
  (equal (transunit-ensemble-rename transunit-ensemble
                                    (ident-ident-alist-fix subst))
         (transunit-ensemble-rename transunit-ensemble subst)))

Theorem: transunit-ensemble-rename-ident-ident-alist-equiv-congruence-on-subst

(defthm
 transunit-ensemble-rename-ident-ident-alist-equiv-congruence-on-subst
 (implies
   (ident-ident-alist-equiv subst subst-equiv)
   (equal
        (transunit-ensemble-rename transunit-ensemble subst)
        (transunit-ensemble-rename transunit-ensemble subst-equiv)))
 :rule-classes :congruence)