ReplaceAll[ (x+y)^2 , {x -> a+b, y -> a+c}]