universe u

structure Fn (E I : Sort u) := (exp : E) (imp : I)
instance (E I : Sort u) :  CoeFun (Fn E I) (fun _ => I) := {coe := fun K => K.imp}

class Bar.{w} (P : Sort u) :=
  fn : P -> Sort w

variable {P : Sort u} (B : Bar P)
variable (fn : Fn ((p : P) -> B.fn p) ({p : P} -> B.fn p))
#check (@fn : {p : P} → Bar.fn p) -- Result is as expected (implicit)
/-
  fn.imp : {p : P} → Bar.fn p
-/

variable (p : P)
variable (Bp : Bar.fn p)
/--
error: function expected at
  fn.imp
term has type
  Bar.fn ?m.744
-/
#guard_msgs in
#check fn Bp

/--
error: function expected at
  fn.imp
term has type
  Bar.fn ?m.828
-/
#guard_msgs in
#check fn p

#check fn (p := p)

variable (fn' : Fn ((p : P) -> B.fn p -> B.fn p) ({p : P} -> B.fn p -> B.fn p))

#check fn' Bp

/--
error: application type mismatch
  fn'.imp p
argument
  p
has type
  P : Sort u
but is expected to have type
  Bar.fn ?m.1225 : Sort ?u.1170
-/
#guard_msgs in
#check fn' p
