theorem Th16:
  g "**" (1 |-> d) = d
proof
  thus g "**" (1 |-> d) = g "**" <* d *> by FINSEQ_2:59
    .= d by Lm4;
end;
