theorem theoeq (_A1 _A2: set): $ _A1 == _A2 -> theo _A1 = theo _A2 $;
_A1 == _A2 -> _A1 == _A2
_A1 == _A2 -> theo _A1 = theo _A2