delete 5 (fromList [(5,"a"), (3,"b")]) == singleton 3 "b" delete 7 (fromList [(5,"a"), (3,"b")]) == fromList [(3, "b"), (5, "a")] delete 5 empty == empty
deleteFindMax set = (findMax set, deleteMax set)
deleteFindMin set = (findMin set, deleteMin set)