theorem
  F[;](x, id X)*f = F[;](x,f)
proof
  thus F[;](x, id X)*f = F[;](x, id X*f) by Th34
    .= F[;](x,f) by FUNCT_2:17;
end;
