Hack for implementing binary--. Don't use this.
(binary-minus-for-gl x y) → *
You should never need to use this, call binary-- instead.
This is the logical definition for binary--. It has a custom GL
symbolic counterpart. The only reason to make this a separate function,
instead of directly putting a symbolic counterpart on
Function:
(defun binary-minus-for-gl (x y) (declare (xargs :guard (and (acl2-numberp x) (acl2-numberp y)))) (let ((__function__ 'binary-minus-for-gl)) (declare (ignorable __function__)) (- x y)))