type DuCaseName<'T> =
    static member ToCaseName<'t, 'u>(value: 't) =
        failwith "just here to provide delayed resolution"
    static member ToCaseName(value: 'T) =
        match FSharp.Reflection.FSharpValue.GetUnionFields(value, typeof<'T>) with
        | case, _ -> case.Name

    static member inline Invoke(value: 'a) =
        let inline call (other: ^M, value: ^I) = ((^M or ^I) : (static member ToCaseName: ^I -> string) value)
        call (Unchecked.defaultof<DuCaseName<'T>>, value)