let i, I be set ; :: thesis: ([[0]] I) . i = {}
per cases ( i in I or not i in I ) ;
end;