theorem Th4:
  g is having_a_unity or len F >= 1 implies g "**" (F ^ <* d *>) =
  g.(g "**" F,d)
proof
  len F >= 1 or len F = 0 by NAT_1:14;
  hence thesis by Lm5,Lm6;
end;
