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