theorem fsteq (_a1 _a2: nat): $ _a1 = _a2 -> fst _a1 = fst _a2 $;
_a1 = _a2 -> _a1 = _a2
_a1 = _a2 -> fst _a1 = fst _a2