module TypeLevel.Util ( cdr 
                  ) where

cdr :: t a -> a
cdr :: t a -> a
cdr _ = a
forall a. HasCallStack => a
undefined