theorem shleq2 (a _n1 _n2: nat): $ _n1 = _n2 -> shl a _n1 = shl a _n2 $;
_n1 = _n2 -> _n1 = _n2
_n1 = _n2 -> shl a _n1 = shl a _n2