theorem
  F c= <.F \/ H.) & H c= <.F \/ H.)
proof
A1: F \/ H c= <.F \/ H.) by FILTER_0:def 4;
  F c= F \/ H & H c= F \/ H by XBOOLE_1:7;
  hence thesis by A1;
end;
