theorem writeeq2 (F: set) (_a1 _a2 b: nat): $ _a1 = _a2 -> write F _a1 b == write F _a2 b $;
_a1 = _a2 -> _a1 = _a2
_a1 = _a2 -> write F _a1 b == write F _a2 b