ЗП
forall b. (a -> b) -> b
~ a
если я ничего не напутал
Size: a a a
ЗП
forall b. (a -> b) -> b
~ a
NK
NK
NK
e
к
к
ЕО
ЕО
ЕО
ЗП
ЕО
ЗП
ЕО
ЗП
newtype Exp f g x = Exp { unExp :: forall y. (x -> y) -> (f y -> g y) }
ЗП
ЗП
ЕО
newtype Exp f g x = Exp { unExp :: forall y. (x -> y) -> (f y -> g y) }
ЕО