theorem muleq2d (_G: wff) (a _b1 _b2: nat): $ _G -> _b1 = _b2 $ > $ _G -> a * _b1 = a * _b2 $;
_G -> a = a
_G -> _b1 = _b2
_G -> a * _b1 = a * _b2