reserve  X for non empty set,
  R for Relation of X;
reserve O for non empty RelStr;

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