(vl-genblob-generates-count x) → count
Theorem:
(defthm vl-genblob-generates-count-greater-than-first (b* ((common-lisp::?count (vl-genblob-generates-count x))) (implies (consp x) (< (vl-genblob-generate-count (car x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generates-count-gte-rest (b* ((common-lisp::?count (vl-genblob-generates-count x))) (<= (vl-genblob-generates-count (cdr x)) count)) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generates-count-greater-than-rest (b* ((common-lisp::?count (vl-genblob-generates-count x))) (implies (consp x) (< (vl-genblob-generates-count (cdr x)) count))) :rule-classes :linear)