max package:unique-logic-tf

We are not able to implement a full Ord instance including Eq superclass and comparisons, but we need to compute maxima.
max x y z means max x y = z.