reserve x, X, Y for set;

theorem
  for L being non empty RelStr holds id L is idempotent
proof
  let L be non empty RelStr;
  thus (id L)*(id L) = id ((the carrier of L) /\ (the carrier of L)) by
FUNCT_1:22
    .= (id L);
end;
