(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 vl-genblob-count-of-sort-genelements-normalize (implies (syntaxp (or (not (equal name ''nil)) (not (equal scopetype '':vl-anonymous-scope)))) (equal (vl-genblob-count (vl-sort-genelements x :id name :scopetype scopetype)) (vl-genblob-count (vl-sort-genelements x)))))
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-genblock-count.count (b* ((common-lisp::?count (vl-genblob-genblock-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-genblocklist-count.count (b* ((common-lisp::?count (vl-genblob-genblocklist-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-count-of-sort-genelements-normalize (implies (syntaxp (or (not (equal name ''nil)) (not (equal scopetype '':vl-anonymous-scope)))) (equal (vl-genblob-count (vl-sort-genelements x :id name :scopetype scopetype)) (vl-genblob-count (vl-sort-genelements x)))))
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-genblock-count-greater-than-sorted (b* nil (< (vl-genblob-count (vl-sort-genelements (vl-genblock->elems x) :id name :scopetype type)) (vl-genblob-genblock-count x))) :rule-classes :linear)
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)
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-genblock-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-genblocklist-count-greater-than-first (b* ((common-lisp::?count (vl-genblob-genblocklist-count x))) (implies (consp x) (< (vl-genblob-genblock-count (car x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genblocklist-count-gte-rest (b* ((common-lisp::?count (vl-genblob-genblocklist-count x))) (<= (vl-genblob-genblocklist-count (cdr x)) count)) :rule-classes :linear)
Theorem:
(defthm vl-genblob-genblocklist-count-greater-than-rest (b* ((common-lisp::?count (vl-genblob-genblocklist-count x))) (implies (consp x) (< (vl-genblob-genblocklist-count (cdr x)) count))) :rule-classes :linear)
Theorem:
(defthm vl-genblob-count-of-vl-genblob-fix-x (equal (vl-genblob-count (vl-genblob-fix x)) (vl-genblob-count x)))
Theorem:
(defthm vl-genblob-generates-count-of-vl-genelementlist-fix-x (equal (vl-genblob-generates-count (vl-genelementlist-fix x)) (vl-genblob-generates-count x)))
Theorem:
(defthm vl-genblob-genblock-count-of-vl-genblock-fix-x (equal (vl-genblob-genblock-count (vl-genblock-fix x)) (vl-genblob-genblock-count x)))
Theorem:
(defthm vl-genblob-generate-count-of-vl-genelement-fix-x (equal (vl-genblob-generate-count (vl-genelement-fix x)) (vl-genblob-generate-count x)))
Theorem:
(defthm vl-genblob-gencaselist-count-of-vl-gencaselist-fix-x (equal (vl-genblob-gencaselist-count (vl-gencaselist-fix x)) (vl-genblob-gencaselist-count x)))
Theorem:
(defthm vl-genblob-elementlist-count-of-vl-genelementlist-fix-x (equal (vl-genblob-elementlist-count (vl-genelementlist-fix x)) (vl-genblob-elementlist-count x)))
Theorem:
(defthm vl-genblob-genblocklist-count-of-vl-genblocklist-fix-x (equal (vl-genblob-genblocklist-count (vl-genblocklist-fix x)) (vl-genblob-genblocklist-count x)))
Theorem:
(defthm vl-genblob-count-vl-genblob-equiv-congruence-on-x (implies (vl-genblob-equiv x x-equiv) (equal (vl-genblob-count x) (vl-genblob-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-generates-count-vl-genelementlist-equiv-congruence-on-x (implies (vl-genelementlist-equiv x x-equiv) (equal (vl-genblob-generates-count x) (vl-genblob-generates-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-genblock-count-vl-genblock-equiv-congruence-on-x (implies (vl-genblock-equiv x x-equiv) (equal (vl-genblob-genblock-count x) (vl-genblob-genblock-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-generate-count-vl-genelement-equiv-congruence-on-x (implies (vl-genelement-equiv x x-equiv) (equal (vl-genblob-generate-count x) (vl-genblob-generate-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-gencaselist-count-vl-gencaselist-equiv-congruence-on-x (implies (vl-gencaselist-equiv x x-equiv) (equal (vl-genblob-gencaselist-count x) (vl-genblob-gencaselist-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-elementlist-count-vl-genelementlist-equiv-congruence-on-x (implies (vl-genelementlist-equiv x x-equiv) (equal (vl-genblob-elementlist-count x) (vl-genblob-elementlist-count x-equiv))) :rule-classes :congruence)
Theorem:
(defthm vl-genblob-genblocklist-count-vl-genblocklist-equiv-congruence-on-x (implies (vl-genblocklist-equiv x x-equiv) (equal (vl-genblob-genblocklist-count x) (vl-genblob-genblocklist-count x-equiv))) :rule-classes :congruence)