% Parallel maximum % Needs: nat.clf list.clf elem : nat -> type. #mode elem -. load : list -> nat -> type. #mode load + -. load/nil : load nil Max o- {elem Max}. load/cons : load (cons N Ns) Max o- (elem N -o load Ns Max). combine : elem M * elem N * leq M N -o {elem N}. #query * 1 * 1 load (cons e (cons (d (d e b1) b1) (cons (d (d e b1) b0) (cons e nil)))) Max.