Is there a function \x -> (x, x) in standard libraries?