lean2/tests/lean/run/level_bug1.lean

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
fix(kernel/default_converter): broken optimization we must also check the universe levels when applying the optimization for constraints of the form: f.{l_1 ... l_k} a_1 ... a_n =?= f.{l_1' ... l_k'} b_1 ... b_n The optimization tries to avoid unfolding f if we can establish that a_i is definitionally equal to b_i for each i in [1, n] closes #581 2015-05-07 01:26:25 +00:00			`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`