intros.
simpl in |- *.
red in |- *.
intros.
apply False_ind; auto with algebra.
Qed.
Hint Resolve seq_O_is_empty: algebra.

(* Specifications: *)
Lemma seq_set_empty_seq_is_empty :
forall (A : Setoid) (v : seq 0 A), seq_set v =' empty A in _.