Size of the state vector, i.e.
Function:
(defun param->size (param) (declare (xargs :guard (paramp param))) (let ((__function__ 'param->size)) (declare (ignorable __function__)) (+ (param->rate param) (param->capacity param))))
Theorem:
(defthm posp-of-param->size (b* ((r+c (param->size param))) (posp r+c)) :rule-classes :rewrite)
Theorem:
(defthm param->size-of-param-fix-param (equal (param->size (param-fix param)) (param->size param)))
Theorem:
(defthm param->size-param-equiv-congruence-on-param (implies (param-equiv param param-equiv) (equal (param->size param) (param->size param-equiv))) :rule-classes :congruence)