[FIR2IR] Use companion as bound receiver if expected type requires it

A::foo is preferably resolved as an unbound reference to A.foo, however
if A.Companion is a subtype of A and the expected type has one fewer
parameter than the type of the unbound reference, generate a bound
reference with the companion as receiver.

^KT-56519 Fixed

compiler/testData/codegen/box/callableReference/bound/companionObjectReceiver.kt

@@ -5,4 +5,4 @@ class A {
     }
 }
 
-fun box() = (A.Companion::ok).let { it() }
+fun box() = (A.Companion::ok).let { it() }