theorem Th5:
  z|^1 = z
proof
  thus z|^1 = Product(<*z*>) by FINSEQ_2:59
    .= z;
end;
