Ich möchte eine Datenstruktur zum Speichern von Elementen erstellen, die mit Symbol auf Typebene gekennzeichnet sind. Dies

data Store e (ss :: [Symbol]) where
  Nil :: Store e '[]
  Cons :: e s -> Store e ss -> Store e (s ': ss)

data HasElem (a :: k) (as :: [k]) where
  AtHead :: HasElem a (a ': as)
  InTail :: HasElem a as -> HasElem a (b ': as)

class HasElemC (a :: k) (as :: [k]) where hasElem :: HasElem a as
instance HasElemC {OVERLAPPING} a (a ': as) where hasElem = AtHead
instance HasElemC a as => HasElemC a (b ': as) where hasElem = InTail hasElem

from :: HasElemC s ss => Store e ss -> e s
from = from' hasElem

from' :: HasElem s ss -> Store e ss -> e s
-- from' _ Nil = undefined
from' h (Cons element store) = case h of
  AtHead -> element
  InTail h' -> from' h' store

kinda funktioniert, wenn Sie die Tatsache vernachlässigen, dass der Compiler mich warnt, dass ich @ nicht liefefrom' _ Nil definition (warum ist es übrigens so? Gibt es eine Möglichkeit, damit aufzuhören?) Aber am Anfang wollte ich eigentlich Singletons-Bibliothek auf idiomatische Weise verwenden, anstatt meinen eigenen Code auf Typebene zu schreiben. Etwas wie das

import Data.Singletons.Prelude.List

data Store e (ss :: [Symbol]) where
  Nil :: Store e '[]
  Cons :: Sing s -> e s -> Store e ss -> Store e (s ': ss)

from :: Elem s ss ~ True => Store e ss -> e s
from (Cons evidence element nested) = ???

Leider konnte ich nicht herausfinden, wie man den Kontext in eine Aussagengleichheit umwandelt. Wie können Sie Bausteine aus der Singletons-Bibliothek verwenden, um das zu tun, was ich versuche?

ghc @ 7.10.3, singletons @ 2.1