(fraig-stats-increment-coincident-nodes fraig-stats) → fraig-stats
Function:
(defun fraig-stats-increment-coincident-nodes (fraig-stats) (declare (xargs :stobjs (fraig-stats))) (declare (xargs :guard t)) (let ((__function__ 'fraig-stats-increment-coincident-nodes)) (declare (ignorable __function__)) (update-fraig-coincident-nodes (+ 1 (fraig-coincident-nodes fraig-stats)) fraig-stats)))