(*****************)
(** ** Remove    *)
(*****************)
Fixpoint remove (x : A) (l : list A) : list A :=
match l with
| [] => []
| y::tl => if (eq_dec x y) then remove x tl else y :: remove x tl
end.

Lemma remove_remove_comm : forall l x y,
remove x (remove y l) = remove y (remove x l).