title: Is there a "normal" EqualQ function in Mathematica?
body: <p>On the documentation page for <code>Equal</code> we read that </p>
  
  <blockquote>
    <p>Approximate numbers with machine
    precision or higher are considered
    equal if they differ in at most their
    last seven binary digits (roughly
    their last two decimal digits).</p>
  </blockquote>
  
  <p>Here are examples (32 bit system; for 64 bit system add some more zeros in the middle):</p>
  
  <pre><code>In[1]:= 1.0000000000000021 == 1.0000000000000022
  1.0000000000000021 === 1.0000000000000022
  
  Out[1]= True
  
  Out[2]= True
  </code></pre>
  
  <p>I'm wondering is there a "normal" analog of the <code>Equal</code> function in <em>Mathematica</em> that does not drop last 7 binary digits?</p>