Convert an ACL2 booleanp into a 4vec according to the boolean-convention.
(bool->vec x) → *
Function:
(defun bool->vec$inline (x) (declare (xargs :guard (booleanp x))) (let ((__function__ 'bool->vec)) (declare (ignorable __function__)) (if x -1 0)))
Theorem:
(defthm bool->vec-cases (and (implies x (equal (bool->vec x) -1)) (implies (not x) (equal (bool->vec x) 0))))