Section MAIN.
Require Export concat_facts.
Require Export sums2.
Require Export mult_by_scalars.
Require Export vecspace_Fn.

Lemma inject_map_embed_seq_set :
forall (A : Setoid) (B : part_set A) (n : Nat) (v : seq n B),
inject_subsets (seq_set v) =' seq_set (Map_embed v) in _.