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