unfold ltBool in H.
induction (le_lt_dec b a).
unfold not in |- *; intros.
elim (le_not_lt _ _ a0).
auto.
discriminate H.
Qed.

(* Specifications: *)
Lemma ltIsPR : isPRrel 2 ltBool.
Lemma maxIsPR : isPR 2 max.
Lemma gtIsPR : isPRrel 2 (fun a b : nat => ltBool b a).
Remark replaceCompose2 :
forall (n : nat) (a b a' b' : naryFunc n) (c c' : naryFunc 2),
extEqual n a a' ->
extEqual n b b' ->
extEqual 2 c c' ->
extEqual n
(evalComposeFunc _ _ (Vector.cons _ a _ (Vector.cons _ b _ (Vector.nil  (naryFunc n)))) c)
(evalComposeFunc _ _ (Vector.cons _ a' _ (Vector.cons _ b' _ (Vector.nil  (naryFunc n)))) c').