theorem
  id X quasi_orders X & id X partially_orders X
proof
    field id X = X \/ rng id X
    .= X \/ X
    .= X;
 hence thesis by Th31,Th34;
end;
