ЗП
type Exp a = a -> Type
Size: a a a
ЗП
type Exp a = a -> Type
ЗП
type family Base (t :: k) :: k -> Type
ЗП
data Project :: a -> Exp (Base a a)
ЗП
ЗП
type instance Eval (Project '[]) = 'NilF
type instance Eval (Project (x ': xs)) = 'ConsF x xs
ЗП
data Project :: a -> Exp (Base a a)
ЗП
ЗП
MP
MP
MP
MP
MK
MK
-M
и посмотри упадёт лиMP
MK
-F
, там что-то про это былоMK
MK
-hT
уже смотрел?MP
MP