theorem Th31:
  R is being_quasi-order implies R quasi_orders field R
proof
  assume that
A1: R is_reflexive_in field R and
A2: R is_transitive_in field R;
  thus R is_reflexive_in field R & R is_transitive_in field R by A1,A2;
end;
