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

Lemma Map_embed_concat :
forall (E : Setoid) (A : part_set E) (n m : Nat) (f : seq n A) (g : seq m A),
Map_embed (f ++ g) =' Map_embed f ++ Map_embed g in seq _ _.