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