Danling pointer for a given referenced type.
Function:
(defun value-pointer-dangling (reftype) (declare (xargs :guard (typep reftype))) (let ((__function__ 'value-pointer-dangling)) (declare (ignorable __function__)) (make-value-pointer :core (pointer-dangling) :reftype reftype)))
Theorem:
(defthm valuep-of-value-pointer-dangling (b* ((ptr (value-pointer-dangling reftype))) (valuep ptr)) :rule-classes :rewrite)
Theorem:
(defthm value-kind-of-value-pointer-dangling (b* ((?ptr (value-pointer-dangling reftype))) (equal (value-kind ptr) :pointer)))
Theorem:
(defthm value-pointer-dangling-of-type-fix-reftype (equal (value-pointer-dangling (type-fix reftype)) (value-pointer-dangling reftype)))
Theorem:
(defthm value-pointer-dangling-type-equiv-congruence-on-reftype (implies (type-equiv reftype reftype-equiv) (equal (value-pointer-dangling reftype) (value-pointer-dangling reftype-equiv))) :rule-classes :congruence)