Я играю с многожильным кодированием без тегов Free {-# LANGUAGE PolyKinds #-} {-# LANGUAGE...
Если у меня есть метод: proveBar :: forall x . SingI x => Dict (Barable (Foo x)) proveBar = ......