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