Limit[Divide[4-x,x-Sqrt[6x-8]],x->4]