unfold not in |- *; intros.
apply H.
apply in_part_inter_l with B; auto with *.
Qed.
Hint Resolve inter_not_in: algebra.
(* OK *)

(* Specifications: *)
Lemma inter_add_part :
forall (A B0 B : part_set E) (x : E),
~ in_part x B0 ->
Equal A (add_part B0 x) ->
in_part x B -> Equal (inter A B) (add_part (inter B0 B) x).