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