(vl-genblob-genarrayblock-count x) → count
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)