anchor.diff:                Int64 = fun value optOrigin -> Single (single value, optOrigin)
                 Single = fun value optOrigin -> Single (value, optOrigin)
                 Double = fun value optOrigin -> Single (single value, optOrigin)
  -              Vector2 = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/single", "Cannot convert a vector to a single.", optOrigin)
  +              Vector2 = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "single"], "Cannot convert a vector to a single.", optOrigin)
                 String = fun value optOrigin -> Single (scvalue value, optOrigin)
  -              List = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/single", "Cannot convert a list to a single.", optOrigin) }
  +              List = fun _ optOrigin -> Violation (["invalidArgumentType"; "unary"; "conversion"; "single"], "Cannot convert a list to a single.", optOrigin) }
       
           let Double =
               { Bool = fun value optOrigin -> Double ((if value then 1.0 else 0.0), optOrigin)
  
positive.code:               Int64 = fun value optOrigin -> Int (int value, optOrigin)
                Single = fun value optOrigin -> Int (int value, optOrigin)
                Double = fun value optOrigin -> Int (int value, optOrigin)
                Vector2 = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/int", "Cannot convert a vector to an int.", optOrigin)
                String = fun value optOrigin -> Int (scvalue value, optOrigin)
                List = fun _ optOrigin -> Violation.make ("invalidArgumentType/unary/conversion/int", "Cannot convert a list to an int.", optOrigin) }
      
          let Int64 =
              { Bool = fun value optOrigin -> Int64 ((if value then 1L else 0L), optOrigin)
  
negative.code:               Double = fun left right optOrigin -> Bool ((left <= right), optOrigin)
                Vector2 = fun left right optOrigin -> Bool ((left.LengthSquared <= right.LengthSquared), optOrigin)
                String = fun left right optOrigin -> Bool ((left <= right), optOrigin)
                List = fun _ _ optOrigin -> Violation (["invalidArgumentType"; "binary"; "comparison"; "lt_eq"], "Cannot compare lists.", optOrigin) }
      
          let GtEq =
              { Bool = fun left right optOrigin -> Bool ((left >= right), optOrigin)
  