Additional theorems about the parameters in param.
Theorem:
(defthm posp-of-param->prime (posp (param->prime param)))
Theorem:
(defthm all-len-equal-p-of-param->constants (all-len-equal-p (param->constants param) (param->size param)))
Theorem:
(defthm all-len-equal-p-of-param->mds (all-len-equal-p (param->mds param) (param->size param)))
Theorem:
(defthm len-of-param->constants (equal (len (param->constants param)) (param->rounds param)))
Theorem:
(defthm len-of-param->mds (equal (len (param->mds param)) (param->size param)))
Theorem:
(defthm param->rate-less-than-size (< (param->rate param) (param->size param)) :rule-classes :linear)
Theorem:
(defthm param->capacity-less-than-size (< (param->capacity param) (param->size param)) :rule-classes :linear)
Theorem:
(defthm param->size-equal-rate+capacity (equal (param->size param) (+ (param->rate param) (param->capacity param))) :rule-classes :linear)