VY
Size: a a a
VY
KV
VY
V
V
VY
AG
DM
ЗП
DM
C
AF
NI
ЕО
AG
MK
Let p ~ (->)
p (p a b) b ===> (a -> b) -> b -- continuation
p (p a b) (p a b) ===> (a -> b) -> (a -> b) -- application
x.
p a (p a b) ===> a -> (a -> b) -- ???к
ЗП
Let p ~ (->)
p (p a b) b ===> (a -> b) -> b -- continuation
p (p a b) (p a b) ===> (a -> b) -> (a -> b) -- application
x.
p a (p a b) ===> a -> (a -> b) -- ???a -> b
а для второй как раз строить фиксЗП
pfix :: Profunctor p => (a -> b) -> p b (p a d -> d) -> p a d