theorem
  F[:](f,x)*id A = F[:](f|A,x)
proof
  thus F[:](f,x)*id A = F[:](f*id A, x) by Th29
    .= F[:](f|A, x) by RELAT_1:65;
end;
