theorem modeq1d (_G: wff) (_a1 _a2 b: nat): $ _G -> _a1 = _a2 $ > $ _G -> _a1 % b = _a2 % b $;
_G -> _a1 = _a2
_G -> b = b
_G -> _a1 % b = _a2 % b