concatenate two lists
This binary function implements append, which is a macro in ACL2. See append
The guard for
Function:
(defun binary-append (x y) (declare (xargs :guard (true-listp x))) (cond ((endp x) y) (t (cons (car x) (binary-append (cdr x) y)))))