Temporary fix for RT #131626

Since the code for the ops is actually pretty limited, it feels like
a good temporary solution to just copy the code for the non-Texas
versions of !=, <= and >=.  Once we can have proper aliasing of infix
ops in the setting, that also get optimized the same way, the alternate
versions should be replaced by said aliases.

src/core/Numeric.pm

@@ -286,28 +286,34 @@ multi sub infix:<≅>(\a, \b, :$tolerance = $*TOLERANCE)    {
 }
 sub infix:<=~=>(|c) { infix:<≅>(|c) }
 
-proto sub infix:<!=>(Mu $?, Mu $?) is pure  { * }
-multi sub infix:<!=>($?)        { Bool::True }
-multi sub infix:<!=>(Mu \a, Mu \b)   { not a == b }
-sub infix:<≠>(|c) is pure { infix:<!=>(|c) }
-
-proto sub infix:«<»(Mu $?, Mu $?) is pure   { * }
-multi sub infix:«<»($?)         { Bool::True }
-multi sub infix:«<»(\a, \b)    { a.Real < b.Real }
-
-proto sub infix:«<=»(Mu $?, Mu $?) is pure  { * }
-multi sub infix:«<=»($?)        { Bool::True }
-multi sub infix:«<=»(\a, \b)   { a.Real <= b.Real }
-sub infix:«≤»(|c) is pure { infix:«<=»(|c) }
-
-proto sub infix:«>»(Mu $?, Mu $?) is pure   { * }
-multi sub infix:«>»($?)         { Bool::True }
-multi sub infix:«>»(\a, \b)    { a.Real > b.Real }
-
-proto sub infix:«>=»(Mu $?, Mu $?) is pure  { * }
-multi sub infix:«>=»($?)        { Bool::True }
-multi sub infix:«>=»(\a, \b)   { a.Real >= b.Real }
-sub infix:«≥»(|c) is pure { infix:«>=»(|c) }
+proto sub infix:<!=>(Mu $?, Mu $?) is pure { * }
+multi sub infix:<!=>($? --> True)  { }
+multi sub infix:<!=>(Mu \a, Mu \b) { not a == b }
+proto sub infix:<≠>(Mu $?, Mu $?) is pure  { * }  # should be alias, RT 131626
+multi sub infix:<≠>($? --> True)  { }
+multi sub infix:<≠>(Mu \a, Mu \b) { not a == b }
+
+proto sub infix:«<»(Mu $?, Mu $?) is pure { * }
+multi sub infix:«<»($? --> True)  { }
+multi sub infix:«<»(\a, \b) { a.Real < b.Real }
+
+proto sub infix:«<=»(Mu $?, Mu $?) is pure { * }
+multi sub infix:«<=»($? --> True)  { }
+multi sub infix:«<=»(\a, \b) { a.Real <= b.Real }
+proto sub infix:«≤»(Mu $?, Mu $?) is pure { * }  # should be alias, RT 131626
+multi sub infix:«≤»($? --> True)   { }
+multi sub infix:«≤»(\a, \b) { a.Real <= b.Real }
+
+proto sub infix:«>»(Mu $?, Mu $?) is pure { * }
+multi sub infix:«>»($? --> True)  { }
+multi sub infix:«>»(\a, \b) { a.Real > b.Real }
+
+proto sub infix:«>=»(Mu $?, Mu $?) is pure { * }
+multi sub infix:«>=»($? --> True)  { }
+multi sub infix:«>=»(\a, \b) { a.Real >= b.Real }
+proto sub infix:«≥»(Mu $?, Mu $?) is pure { * }  # should be alias, RT 131626
+multi sub infix:«≥»($? --> True)  { }
+multi sub infix:«≥»(\a, \b) { a.Real >= b.Real }
 
 ## bitwise operators