theorem caseeq2d (_G: wff) (A _B1 _B2: set): $ _G -> _B1 == _B2 $ > $ _G -> case A _B1 == case A _B2 $;
_G -> A == A
_G -> _B1 == _B2
_G -> case A _B1 == case A _B2