theorem modeq2d (_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