theorem shreq1 (_a1 _a2 n: nat): $ _a1 = _a2 -> shr _a1 n = shr _a2 n $;
_a1 = _a2 -> _a1 = _a2
_a1 = _a2 -> shr _a1 n = shr _a2 n