theorem shleq1d (_G: wff) (_a1 _a2 n: nat): $ _G -> _a1 = _a2 $ > $ _G -> shl _a1 n = shl _a2 n $;
_G -> _a1 = _a2
_G -> n = n
_G -> shl _a1 n = shl _a2 n