theorem
  F.:(id X, id X).x = F.(x,x)
proof
  thus F.:(id X, id X).x = F.(id X.x, id X.x) by Th37
    .= F.(id X.x, x)
    .= F.(x,x);
end;
