theorem lmemconsid (a l: nat): $ a IN a : l $;
a IN a : l <-> a = a \/ a IN l
a = a -> a = a \/ a IN l
a = a
a = a \/ a IN l
a IN a : l