The node you are looking for is at
gnat_rm/implementation_defined_pragmas pragma-contract-cases
.