Transform a translation unit ensemble.
(const-prop-transunit-ensemble tunits) → new-tunits
Function:
(defun const-prop-transunit-ensemble (tunits) (declare (xargs :guard (transunit-ensemblep tunits))) (let ((__function__ 'const-prop-transunit-ensemble)) (declare (ignorable __function__)) (b* (((transunit-ensemble tunits) tunits)) (transunit-ensemble (const-prop-filepath-transunit-map tunits.unwrap)))))
Theorem:
(defthm transunit-ensemblep-of-const-prop-transunit-ensemble (b* ((new-tunits (const-prop-transunit-ensemble tunits))) (transunit-ensemblep new-tunits)) :rule-classes :rewrite)