prolog finding the max from a list of facts code example

Example: prolog finding the max from a list of facts

most_wins(Id) :-
    wins(Id, W), \+ (wins(_, W1), W1 > W).