[m-rev.] for post-commit review: optimize a test

[Zoltan Somogyi]

The only things worth reviewing are the names of the
new predicate and function.

Zoltan.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Log.pto3
Type: application/octet-stream
Size: 371 bytes
Desc: not available
URL: <http://lists.mercurylang.org/archives/reviews/attachments/20230710/d1913b4f/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: DIFF.pto3
Type: application/octet-stream
Size: 4968 bytes
Desc: not available
URL: <http://lists.mercurylang.org/archives/reviews/attachments/20230710/d1913b4f/attachment-0001.obj>