The node you are looking for is at gnat_rm/gnat_language_extensions simpler-accessibility-model.