theorem lmemeq1 (_a1 _a2 l: nat): $ _a1 = _a2 -> (_a1 IN l <-> _a2 IN l) $;
_a1 = _a2 -> _a1 = _a2
_a1 = _a2 -> (_a1 IN l <-> _a2 IN l)