Raw constructor for honsed propagate-limits-p structures.
Syntax:
(honsed-propagate-limits max-ops)
This is identical to propagate-limits, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by defaggregate.
Function:
(defun honsed-propagate-limits (max-ops) (declare (xargs :guard (and (maybe-natp max-ops)))) (mbe :logic (propagate-limits max-ops) :exec (hons :propagate-limits (hons (hons 'max-ops max-ops) nil))))