theorem ocaseeq2 (z: nat) (_S1 _S2: set): $ _S1 == _S2 -> ocase z _S1 == ocase z _S2 $;
_S1 == _S2 -> _S1 == _S2
_S1 == _S2 -> ocase z _S1 == ocase z _S2