[m-rev.] for post-commit review: move two related predicates to their only callers

[Zoltan Somogyi]

For review by anyone.

Zoltan.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Log.lcffj
Type: application/octet-stream
Size: 417 bytes
Desc: not available
URL: <http://lists.mercurylang.org/archives/reviews/attachments/20260702/43f1dd0a/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: DIFF.lcffj
Type: application/octet-stream
Size: 15597 bytes
Desc: not available
URL: <http://lists.mercurylang.org/archives/reviews/attachments/20260702/43f1dd0a/attachment-0001.obj>