theorem Th36:
  {x} c= O implies order_type_of RelIncl {x} = 1
proof
  card {x} = 1 by CARD_2:42;
  hence thesis by Th35;
end;
