If condition does not recognize a true statement

Question

I made a new relation that works fine alone, but not in a function.

I create an inequality that includes infinity:

inequality <- functi