theorem leeq2 (a _b1 _b2: nat): $ _b1 = _b2 -> (a <= _b1 <-> a <= _b2) $;
_b1 = _b2 -> _b1 = _b2
_b1 = _b2 -> (a <= _b1 <-> a <= _b2)