
theorem Th4:
  for N being reflexive non empty RelStr holds id N is greater_or_equal_to_id
proof
  let N be reflexive non empty RelStr;
  let j be Element of N;
  reconsider n=j as Element of N;
  n <= (id N).n;
  hence thesis;
end;
