Exception raised during pretty printing #20860

open System
open System.Reflection

type InvocableAdapter =
    static member ToFunc (f: Func<'Input[], 'Output>) =
        printfn "[Match] Single Func"
        Func<obj, 'Input[], 'Output>(fun _ args -> f.Invoke(args))

    static member ToFunc (f: Func<'Sender, 'Input[], 'Output>) =
        printfn "[Match] Double Func"
        f

type FSharpFunc<'Input, 'Output> with
    static member ToFunc (f: FSharpFunc<'Input[], 'Output >) =
        printfn "[Match] FSharpFunc"
        Func<obj, 'Input[], 'Output>(fun _ args -> f args)

type InvocableHelper =
    static member inline toInvocable (x: ^T) =
        printfn "12321"
        ((^T or InvocableAdapter) : (static member ToFunc : ^T -> _) x)

let f1 = fun (args: obj[]) -> box (String.concat ", " (args |> Seq.map string))
let f2 = fun _ (args: obj[]) -> box args.Length

let fc1 = Func<obj[], obj>(f1)
let fc2 = Func<obj, obj[], obj>(f2)

let inv2 = InvocableHelper.toInvocable fc2
inv2.Invoke(null, [| 1; 2; 3 |]) |> printfn "fc2: %A"

let inv1 = InvocableHelper.toInvocable fc1
inv1.Invoke(null, [| "A"; "B" |]) |> printfn "fc1: %A"

let invF1 = InvocableHelper.toInvocable f1
invF1.Invoke(null, [| "A"; "B" |]) |> printfn "f1: %A"

> 
12321
[Match] FSharpFunc


Exception raised during pretty printing.
Please report this so it can be fixed.
Trace: System.InvalidCastException: Unable to cast object of type 'System.Func`3[System.Object,System.Object[][],System.Object]' to type 'System.Func`3[System.Object,System.Object[],System.Object]'.
   at FSharp.Compiler.Interactive.Shell.Utilities.AnyToLayoutSpecialization`1.FSharp.Compiler.Interactive.Shell.Utilities.IAnyToLayoutCall.FsiAnyToLayout(FormatOptions options, Object o, Type ty) in D:\a\_work\1\s\src\fsharp\src\Compiler\Interactive\fsi.fs:line 101
   at FSharp.Compiler.Interactive.Shell.FsiValuePrinter.PrintValue(FsiValuePrinterMode printMode, FormatOptions opts, Object x, Type ty) in D:\a\_work\1\s\src\fsharp\src\Compiler\Interactive\fsi.fs:line 727
val invF1: Func<obj,obj array,objnull> = 

>