Proposal: Add ‘type f ~> g = forall a. f a -> g a’