@@ -25,6 +25,9 @@ import Prelude.Uninhabited
26Uninhabited (Z = S n) where
26Uninhabited (Z = S n) where
27 uninhabited Refl impossible
27 uninhabited Refl impossible
29+Uninhabited (S n = Z) where
30+ uninhabited Refl impossible
29--------------------------------------------------------------------------------
32--------------------------------------------------------------------------------
30-- Syntactic tests
33-- Syntactic tests