Set difference.
Time complexity:
Function:
(defun diff (x y) (declare (xargs :guard (and (setp x) (setp y)))) (let ((__function__ 'diff)) (declare (ignorable __function__)) (tree-diff (sfix x) (sfix y))))
Theorem:
(defthm setp-of-diff (b* ((set (diff x y))) (setp set)) :rule-classes :rewrite)