intros.
simpl in |- *.
red in |- *.
simpl in |- *.
destruct x.
apply Ap_comp; auto with algebra.
Qed.
Hint Resolve restricted_comp: algebra.

(* Specifications: *)
Lemma const_map_restricted :
forall (n N : Nat) (H : n <= N) (Y : Setoid) (y : Y),
restricted_seq (const_seq N y) H =' const_seq n y in _.