(** * Maximum  - arities: (2,0) *)
Definition max_e : BC :=
comp 2 0 (rec (proj 2 0 0) (proj 3 1 2) (proj 3 1 2) )
[ P'_e; proj 2 0 0; proj 2 0 1] nil.

(* Specifications: *)
Lemma max_correct_l v1 v2 : length v2 <= length v1 ->
sem max_e [v1; v2] nil = v1.
Lemma max_correct_r v1 v2 : length v1 < length v2 ->
sem max_e [v1; v2] nil = v2.