theorem
  F[:](T,d) = F[:](id D,d)*T
proof
  rng T c= D;
  hence F[:](T,d) = F[:]((id D)*T,d) by RELAT_1:53
    .= F[:]((id D),d)*T by FUNCOP_1:29;
end;
