theorem caseeq2 (A _B1 _B2: set): $ _B1 == _B2 -> case A _B1 == case A _B2 $;
_B1 == _B2 -> _B1 == _B2
_B1 == _B2 -> case A _B1 == case A _B2