Gibt es eine "normale" EqualQ-Funktion in Mathematica?

Question

Auf der Dokumentationsseite für Equal lesen wir, dass

Näherungsweise Zahlen mit Maschine Genauigkeit oder höher werden als gleich, wenn sie sich höchstens in ihren letzten sieben Binärziffern unterscheiden (ungefähr ihre letzten beiden Dezimalstellen) unterscheiden.

Hier sind Beispiele (32-Bit-System; bei 64-Bit-Systemen fügen Sie in der Mitte einige weitere Nullen hinzu):

In[1]:= 1.0000000000000021 == 1.0000000000000022
1.0000000000000021 === 1.0000000000000022

Out[1]= True

Out[2]= True

Ich frage mich, ob es ein "normales" Analogon der Equal Funktion in Mathematica der die letzten 7 Binärziffern nicht fallen lässt?