theorem lteq2d (_G: wff) (a _b1 _b2: nat): $ _G -> _b1 = _b2 $ > $ _G -> (a < _b1 <-> a < _b2) $;
_G -> a = a
_G -> _b1 = _b2
_G -> (a < _b1 <-> a < _b2)