
theorem Th6:
  for L be non empty RelStr holds [id L, id L] is Galois
proof
  let L be non empty RelStr;
  take g = id L, d = id L;
  thus [id L, id L] = [g,d] & g is monotone & d is monotone;
  let t,s be Element of L;
  g.s = s by FUNCT_1:18;
  hence thesis by FUNCT_1:18;
end;
