Associates an instantiation with an instance in an existing map of know instances of a second-order function.
(put-sof-instance inst fun instmap wrld) → new-instmap
The guard requires the absence of an instance for the same instantiation (equivalent up to alist-equiv).
Function:
(defun put-sof-instance (inst fun instmap wrld) (declare (xargs :guard (and (symbolp fun) (plist-worldp wrld) (funvar-instp inst wrld) (and (sof-instancesp instmap wrld) (null (get-sof-instance inst instmap wrld)))))) (declare (ignore wrld)) (let ((__function__ 'put-sof-instance)) (declare (ignorable __function__)) (acons inst fun instmap)))