1 (defun sub-interval (x y)
2   (make-interval
3    (- (lower-bound x) (upper-bound y))
4    (- (upper-bound x) (lower-bound y))))