Type function under a forall type