Is there a “normal” EqualQ function in Mathematica?

Question

On the documentation page for Equal we read that

Approximate numbers with machine precision or higher are considered equal if they d

Answer 1

One other way to define such function is by using SetPrecision:

MyEqual[a_, b_] := SetPrecision[a, Precision[a] + 3] == SetPrecision[b, Precision[b] + 3]

This seems to work in the all cases but I'm still wondering is there a built-in function. It is ugly to use high-level functions for such a primitive task...