theorem ocasepeq2 (z: wff) (_S1 _S2: set): $ _S1 == _S2 -> ocasep z _S1 == ocasep z _S2 $;
_S1 == _S2 -> _S1 == _S2
_S1 == _S2 -> ocasep z _S1 == ocasep z _S2