theorem coprimeeq1 (_a1 _a2 b: nat): $ _a1 = _a2 -> (coprime _a1 b <-> coprime _a2 b) $;
_a1 = _a2 -> _a1 = _a2
_a1 = _a2 -> (coprime _a1 b <-> coprime _a2 b)