Section Removal.
Variable X : eqType.
Implicit Types x y : X.
(*  Definition neq (x : X) := decp (fun y => y <> x). *)
Definition rem A x := filter (DecPred (fun y => y <> x)) A.

Lemma rem_cons' A B x y :
x el B -> rem A y <<= B -> rem (x::A) y <<= B.