data Elem : a -> FreshList a neq -> Type
Here : Elem x (x :: xs)
There : Elem y xs -> Elem y (x :: xs)
Uninhabited (Here = There e)
Uninhabited (There e = Here)
.recall : (xs : FreshList a neq) -> Elem x xs -> a
recallId : (xs : FreshList a neq) -> (pos : Elem x xs) -> xs .recall pos = x