Conventional reverse-based mbe of map-spec and map-tr.
(map-traditional x) → *
Function:
(defun map-traditional (x) (declare (xargs :guard t)) (let ((acl2::__function__ 'map-traditional)) (declare (ignorable acl2::__function__)) (mbe :logic (map-spec x) :exec (reverse (map-tr x nil)))))