theorem
  card F c= order_type_of RelIncl F
proof
  card F = card order_type_of RelIncl F by Th7;
  hence thesis by CARD_1:8;
end;
