theorem Th12:
  g "**" <* d1,d2 *> = g.(d1,d2)
proof
A1: len<* d1 *> = 1 by FINSEQ_1:39;
  thus g "**" <* d1,d2 *> = g "**" (<* d1 *> ^ <* d2 *>) by FINSEQ_1:def 9
    .= g.(g "**" <* d1 *>,d2) by A1,Th4
    .= g.(d1,d2) by Lm4;
end;
