theorem reseq2 (A _B1 _B2: set): $ _B1 == _B2 -> A |` _B1 == A |` _B2 $;
_B1 == _B2 -> _B1 == _B2
_B1 == _B2 -> A |` _B1 == A |` _B2