(p,rel) <- getPrimaryFunctionalReference r
path <- loop p
relName <- possibleNameOf rel
return $ simplifyResourceIdHead $ PropertyOf path relName
)
`morelse`
(p,rel) <- getPrimaryFunctionalReference r
path <- loop p
relName <- possibleNameOf rel
return $ simplifyResourceIdHead $ PropertyOf path relName
)
`morelse`