(vl-genblob-generate-count x) → count
Theorem:
(defthm vl-genblob-generate-count-greater-than-genbegin-block (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-genbegin) (< (vl-genblob-genblock-count (vl-genbegin->block x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generate-count-greater-than-genblockarray-blocks (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-genarray) (< (vl-genblob-genblocklist-count (vl-genarray->blocks x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generate-count-greater-than-genif-blocks (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-genif) (< (+ (vl-genblob-genblock-count (vl-genif->then x)) (vl-genblob-genblock-count (vl-genif->else x))) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generate-count-greater-than-gencase-blocks (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-gencase) (< (+ (vl-genblob-genblock-count (vl-gencase->default x)) (vl-genblob-gencaselist-count (vl-gencase->cases x))) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generate-count-greater-than-genloop-blocks (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-genloop) (< (vl-genblob-genblock-count (vl-genloop->body x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-generate-count-greater-than-genbase-item (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (vl-genelement-case x :vl-genbase) (< (vl-genblob-elementlist-count (list x)) count))) :rule-classes :linear)