The node you are looking for is at gnat_rm/gnat_language_extensions case-pattern-matching.