theorem shleq2d (_G: wff) (a _n1 _n2: nat): $ _G -> _n1 = _n2 $ > $ _G -> shl a _n1 = shl a _n2 $;
_G -> a = a
_G -> _n1 = _n2
_G -> shl a _n1 = shl a _n2