(vl-genblob-count x) → count
Theorem:
(defthm vl-genblob-count-greater-than-generates (b* ((common-lisp::?count (vl-genblob-count x))) (< (vl-genblob-generates-count (vl-genblob->generates x)) count)) :rule-classes :linear)
Theorem:
(defthm return-type-of-vl-genblob-count.count (b* ((common-lisp::?count (vl-genblob-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-generates-count.count (b* ((common-lisp::?count (vl-genblob-generates-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-generate-count.count (b* ((common-lisp::?count (vl-genblob-generate-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-gencaselist-count.count (b* ((common-lisp::?count (vl-genblob-gencaselist-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-elementlist-count.count (b* ((common-lisp::?count (vl-genblob-elementlist-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-genarrayblocklist-count.count (b* ((common-lisp::?count (vl-genblob-genarrayblocklist-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm return-type-of-vl-genblob-genarrayblock-count.count (b* ((common-lisp::?count (vl-genblob-genarrayblock-count x))) (posp count)) :rule-classes :type-prescription)
Theorem:
(defthm vl-genblob-count-greater-than-generates (b* ((common-lisp::?count (vl-genblob-count x))) (< (vl-genblob-generates-count (vl-genblob->generates x)) count)) :rule-classes :linear)
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)
Theorem:
(defthm vl-genblob-generate-count-greater-than-genblock-elems (b* ((common-lisp::?count (vl-genblob-generate-count x))) (implies (equal (vl-genelement-kind x) :vl-genblock) (< (vl-genblob-elementlist-count (vl-genblock->elems 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 (equal (vl-genelement-kind x) :vl-genarray) (< (vl-genblob-genarrayblocklist-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 (equal (vl-genelement-kind x) :vl-genif) (< (+ (vl-genblob-generate-count (vl-genif->then x)) (vl-genblob-generate-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 (equal (vl-genelement-kind x) :vl-gencase) (< (+ (vl-genblob-generate-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 (equal (vl-genelement-kind x) :vl-genloop) (< (vl-genblob-generate-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 (equal (vl-genelement-kind x) :vl-genbase) (< (vl-genblob-elementlist-count (list x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-gencaselist-count-greater-than-first (b* ((common-lisp::?count (vl-genblob-gencaselist-count x))) (implies (consp (vl-gencaselist-fix x)) (< (vl-genblob-generate-count (cdar (vl-gencaselist-fix x))) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-gencaselist-count-gte-rest (b* ((common-lisp::?count (vl-genblob-gencaselist-count x))) (<= (vl-genblob-gencaselist-count (cdr (vl-gencaselist-fix x))) count)) :rule-classes :linear)
Theorem:
(defthm vl-genblob-gencaselist-count-greater-than-rest (b* ((common-lisp::?count (vl-genblob-gencaselist-count x))) (implies (consp (vl-gencaselist-fix x)) (< (vl-genblob-gencaselist-count (cdr (vl-gencaselist-fix x))) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-elementlist-count-greater-than-genblob-count (b* ((common-lisp::?count (vl-genblob-elementlist-count x))) (< (vl-genblob-count (vl-sort-genelements x)) count)) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genarrayblocklist-count-greater-than-first (b* ((common-lisp::?count (vl-genblob-genarrayblocklist-count x))) (implies (consp x) (< (vl-genblob-genarrayblock-count (car x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genarrayblocklist-count-gte-rest (b* ((common-lisp::?count (vl-genblob-genarrayblocklist-count x))) (<= (vl-genblob-genarrayblocklist-count (cdr x)) count)) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genarrayblocklist-count-greater-than-rest (b* ((common-lisp::?count (vl-genblob-genarrayblocklist-count x))) (implies (consp x) (< (vl-genblob-genarrayblocklist-count (cdr x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genarrayblock-count-greater-than-elems (b* ((common-lisp::?count (vl-genblob-genarrayblock-count x))) (< (vl-genblob-elementlist-count (vl-genarrayblock->elems x)) count)) :rule-classes :linear)