(Int -> T)は
{ ⊥, (\x -> T), (\x -> let _ = x + 1 in T), ... }

(String -> T)は
{ ⊥, (\x -> T), (\x -> let _ = x ++ "foo" in T), ... }

forall a. (a -> T)は
{ ⊥, (\x -> T) }