theorem Th14:
  g "**" <* d1,d2,d3 *> = g.(g.(d1,d2),d3)
proof
A1: len<* d1,d2 *> = 2 by FINSEQ_1:44;
  thus g "**" <* d1,d2,d3 *> = g "**" (<* d1,d2 *> ^ <* d3 *>) by FINSEQ_1:43
    .= g.(g "**" <* d1,d2 *>,d3) by A1,Th4
    .= g.(g.(d1,d2),d3) by Th12;
end;
