Oℕ
p1: (A, B, C) -> A
p2: (A, B, C) -> B
p3: (A, B, C) -> C
Size: a a a
Oℕ
NI
Oℕ
NI
Oℕ
Oℕ
Oℕ
NI
NI
NI
NI
NK
NK
NI
NK
NI
VY
VY
absurd :: Void -> a
absurd a = case a of {}
newtype Void = Void Void
absurd :: forall a. Void -> a
absurd a = spin a
where
spin (Void b) = spin b
absurd
,Oℕ