theorem subeq2 (a _b1 _b2: nat): $ _b1 = _b2 -> a - _b1 = a - _b2 $;
_b1 = _b2 -> _b1 = _b2
_b1 = _b2 -> a - _b1 = a - _b2