lean4-htt/old_tests/tests/lean/run/level_bug1.lean
2018-04-10 12:56:55 -07:00

4 lines
207 B
Text

definition f (a : Type) := Π r : Type, (a → r) → r
definition blah2 : Π {a : Type} {r : Type} (sa : f a) (k : a → r), sa r k = sa r k :=
λ (a : Type) (r : Type) (sa : f a) (k : a → r), rfl