Raw constructor for honsed wcp-lit-actions-p structures.
Syntax:
(honsed-wcp-lit-actions witnesses examples)
This is identical to wcp-lit-actions, except that we hons the structure we are creating.
This is an ordinary honsing constructor introduced by std::defaggregate.
Function:
(defun honsed-wcp-lit-actions (witnesses examples) (declare (xargs :guard (and (wcp-witness-rulesp witnesses) (wcp-example-appsp examples)))) (mbe :logic (wcp-lit-actions witnesses examples) :exec (hons (hons 'witnesses witnesses) (hons (hons 'examples examples) nil))))