Li-Fan Chen says to YSITD
教我證明 insert x ys »= (return . map f) = insert (f x) (map f ys)