lean4-htt/tests/lean/binderCacheIssue2.lean

10 lines
204 B
Text

universe u
class Bar.{w} (P : Sort u) :=
fn : P -> Sort w
variable {P : Sort u} (B : Bar P)
structure Foo (X Y : Sort u) := f : Unit
def foo := Foo ((p : P) -> B.fn p) ({p : P} -> B.fn p)
#print foo