theorem Th3:
  TrivOrthoRelStr is reflexive
proof
  rng id {{}} = {{}} & field id {{}} = dom id {{}} \/ rng id {{}};
  hence thesis by RELAT_2:def 9;
end;
