let e be Element of cB; :: thesis: e is Relation-like
per cases ( not cB is empty or cB is empty ) ;
end;