prd_phrases :: [PHRASE] -> Set.Set NAME
prd_phrases = unifyPredicates prd_phrase
prd_phrases :: [PHRASE] -> Set.Set NAME
prd_phrases = unifyPredicates prd_phrase
prd_phrases = unifyPredicates prd_phrase