The node you are looking for is at gnat_rm/the_gnat_library gnat-case-util-g-casuti-ads.