intros.
apply (pointwise_comp_general H H0 H1).
Qed.
Hint Resolve pointwise_comp: algebra.

Lemma pointwise_hd :
forall (A B C : Setoid) (n : Nat) (v : seq (S n) A)
(w : seq (S n) B) (op : Map (cart A B) C) (H : 0 < S n),
pointwise op v w (Build_finiteT H) ='
op (couple (v (Build_finiteT H)) (w (Build_finiteT H))) in _.