auto with algebra.
Qed.
Hint Resolve cons_Map_embed: algebra.

(* Specifications: *)
Lemma Map_embed_Seqtl :
forall (E : Setoid) (A : part_set E) (n : Nat) (f : seq n A),
Map_embed (Seqtl f) =' Seqtl (Map_embed f) in seq _ _.