1\THEOREM ABSORPTION pred_sets
2|- !x s. x IN s = (x INSERT s = s)
3\ENDTHEOREM
4