theorem caseeq1 (_A1 _A2 B: set): $ _A1 == _A2 -> case _A1 B == case _A2 B $;
_A1 == _A2 -> _A1 == _A2
_A1 == _A2 -> case _A1 B == case _A2 B