anchor.diff:                                  | _, _ -> x.Equals y
   
                       type Equality<'a when 'a : not struct and 'a : null and 'a : equality>() =
  -                        member __.GetHashCode (_:IEqualityComparer, x:'a) =
  -                            match x with
  -                            | null -> 0
  -                            | _ -> x.GetHashCode ()
  -
                           interface Specializations.IEssenceOfEquals<'a> with
                               member __.Ensorcel (_:IEqualityComparer, x:'a, y:'a) =
                                   match x, y with
  
positive.code:                     | _ -> null
  
                  let standardTypes (t:Type) : obj =
                      if   t.Equals typeof<bool>       then box (Func<IEqualityComparer,bool      ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<float>      then box (Func<IEqualityComparer,float     ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<sbyte>      then box (Func<IEqualityComparer,sbyte     ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<int16>      then box (Func<IEqualityComparer,int16     ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<int32>      then box (Func<IEqualityComparer,int32     ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<int64>      then box (Func<IEqualityComparer,int64     ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<byte>       then box (Func<IEqualityComparer,byte      ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<uint16>     then box (Func<IEqualityComparer,uint16    ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<uint32>     then box (Func<IEqualityComparer,uint32    ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<uint64>     then box (Func<IEqualityComparer,uint64    ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<nativeint>  then box (Func<IEqualityComparer,nativeint ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<unativeint> then box (Func<IEqualityComparer,unativeint,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<char>       then box (Func<IEqualityComparer,char      ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<string>     then box (Func<IEqualityComparer,string    ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<decimal>    then box (Func<IEqualityComparer,decimal   ,int>(fun _ a -> a.GetHashCode()))
                      elif t.Equals typeof<float32>    then box (Func<IEqualityComparer,float32   ,int>(fun _ a -> a.GetHashCode()))
                      else null
  
                  type GenericHashParamObject<'a>() =
                      member __.GetHashCode (iec:IEqualityComparer, x:'a) = GenericHashParamObj iec (box x)
  
                  let arrays (t:Type) : obj =
                      if t.IsArray || typeof<System.Array>.IsAssignableFrom t then
                          // TODO: Future; for now just default back to previous functionality
                          makeGetHashCodeDelegate t t typedefof<GenericHashParamObject<_>>
                      else null
  
                  let nullableType (t:Type) : obj =
                      if t.IsGenericType && ((t.GetGenericTypeDefinition ()).Equals typedefof<System.Nullable<_>>) then
                          let underlying = get (t.GetGenericArguments()) 0
                          let make = makeGetHashCodeDelegate t underlying 
                          
                          if typeof<IStructuralEquatable>.IsAssignableFrom underlying then make Exemplars.nullableStructuralEquatable
                          else                                                             make Exemplars.nullableEquality
                      else null
  
                  let structualEquatable (t:Type): obj =
                      let make = makeGetHashCodeDelegate t t
  
                      if   t.IsValueType && typeof<IStructuralEquatable>.IsAssignableFrom t then make Exemplars.valueTypeStructuralEquatable
                      elif typeof<IStructuralEquatable>.IsAssignableFrom t                  then make Exemplars.refTypeStructuralEquatable
                      else null
  
                  let sealedTypes (t:Type): obj =
                      let make = makeGetHashCodeDelegate t t
  
                      if t.IsValueType then make Exemplars.valueTypeEquality
                      elif t.IsSealed  then make Exemplars.refTypeEquality
                      else null
  
                  let defaultGetHashCode ty =
                      makeGetHashCodeDelegate ty ty typedefof<GenericHashParamObject<_>>
  
                  let createGetHashCodeDelegate (t:Type) : obj =
                      mos.takeFirstNonNull [|
  
negative.code:             // and devirtualizes calls to it based on type "T".
              let GenericHashIntrinsic x = 
                  let iec = fsEqualityComparerUnlimitedHashingPER
                  eliminate_tail_call_int (GenericSpecializeHash.Function<_>.Func.Ensorcel (iec, x))
  
              /// Intrinsic for calls to depth-limited structural hashing that were not optimized by static conditionals.
              let LimitedGenericHashIntrinsic limit x =
                  let iec = CountLimitedHasherPER limit
                  eliminate_tail_call_int (GenericSpecializeHash.Function<_>.Func.Ensorcel (iec, x))
  
              // used by tuples
              let inline GenericHashWithComparerIntrinsic_inline (iec : System.Collections.IEqualityComparer) (x : 'T) : int =
                  GenericSpecializeHash.Function<_>.Func.Ensorcel (iec, x)
  
              /// Intrinsic for a recursive call to structural hashing that was not optimized by static conditionals.
              //
  