diff --git a/src/fsharp/FSharp.Core/prim-types.fs b/src/fsharp/FSharp.Core/prim-types.fs
index 24e6f71c967f..74fffa1fa320 100644
--- a/src/fsharp/FSharp.Core/prim-types.fs
+++ b/src/fsharp/FSharp.Core/prim-types.fs
@@ -1290,16 +1290,8 @@ namespace Microsoft.FSharp.Core
                  when 'T : uint32 = if (# "clt.un" x y : bool #) then (-1) else (# "cgt.un" x y : int #)
                  when 'T : uint64 = if (# "clt.un" x y : bool #) then (-1) else (# "cgt.un" x y : int #)
                  when 'T : unativeint = if (# "clt.un" x y : bool #) then (-1) else (# "cgt.un" x y : int #)
-                 when 'T : float  = if   (# "clt" x y : bool #) then (-1)
-                                    elif (# "cgt" x y : bool #) then (1)
-                                    elif (# "ceq" x y : bool #) then (0)
-                                    elif (# "ceq" y y : bool #) then (-1)
-                                    else (# "ceq" x x : int #)
-                 when 'T : float32 = if   (# "clt" x y : bool #) then (-1)
-                                     elif (# "cgt" x y : bool #) then (1)
-                                     elif (# "ceq" x y : bool #) then (0)
-                                     elif (# "ceq" y y : bool #) then (-1)
-                                     else (# "ceq" x x : int #)
+                 when 'T : float  = if (# "clt" x y : bool #) then (-1) else (# "cgt" x y : int #)
+                 when 'T : float32 = if (# "clt" x y : bool #) then (-1) else (# "cgt" x y : int #)
                  when 'T : char   = if (# "clt.un" x y : bool #) then (-1) else (# "cgt.un" x y : int #)
                  when 'T : string = 
                      // NOTE: we don't have to null check here because System.String.CompareOrdinal