Proof
fun (A B C D : Ens) (e : EQ (PAIR A B) (PAIR C D)) =>
pairwise_EQ_ac A B C D (PAIR_uniqueness A B C D e).

Theorem PAIR_uni_bd :
forall (A B C D : Ens) (e : EQ (PAIR A B) (PAIR C D)), EQ B D.