Gather modinsts from the module, including its generate blocks and bind constructs (which don't even belong to it) -- rarely sensible!
(vl-interface->flatten-modinsts x) → modinsts
Function:
(defun vl-interface->flatten-modinsts (x) (declare (xargs :guard (vl-interface-p x))) (let ((__function__ 'vl-interface->flatten-modinsts)) (declare (ignorable __function__)) (b* ((genblob (vl-interface->genblob x))) (vl-genblob->flatten-modinsts genblob nil))))
Theorem:
(defthm vl-modinstlist-p-of-vl-interface->flatten-modinsts (b* ((modinsts (vl-interface->flatten-modinsts x))) (vl-modinstlist-p modinsts)) :rule-classes :rewrite)
Theorem:
(defthm vl-interface->flatten-modinsts-of-vl-interface-fix-x (equal (vl-interface->flatten-modinsts (vl-interface-fix x)) (vl-interface->flatten-modinsts x)))
Theorem:
(defthm vl-interface->flatten-modinsts-vl-interface-equiv-congruence-on-x (implies (vl-interface-equiv x x-equiv) (equal (vl-interface->flatten-modinsts x) (vl-interface->flatten-modinsts x-equiv))) :rule-classes :congruence)