Unary plus of a value of type
Function:
(defun plus-sllong (x) (declare (xargs :guard (and (sllongp x)))) (sllong-fix x))
Theorem:
(defthm sllongp-of-plus-sllong (sllongp (plus-sllong x)))
Theorem:
(defthm plus-sllong-of-sllong-fix-x (equal (plus-sllong (sllong-fix x)) (plus-sllong x)))
Theorem:
(defthm plus-sllong-sllong-equiv-congruence-on-x (implies (sllong-equiv x x-equiv) (equal (plus-sllong x) (plus-sllong x-equiv))) :rule-classes :congruence)