reserve i,j,k,n,m,l,s,t for Nat;
reserve a,b for Real;
reserve F for real-valued FinSequence;
reserve z for Complex;

theorem Th6:
  z|^(s+1) = z|^s * z
proof
  thus z|^(s+1) = Product((s |-> z) ^ <*z*>) by FINSEQ_2:60
    .= z|^s*z by RVSUM_1:96;
end;
