¿Se pueden usar GADT para probar las desigualdades de tipo en GHC?

Entonces, en mis intentos continuos de entender a Curry-Howard a través de pequeños ejercicios de Haskell, me he quedado atascado en este punto: