reserve f for Function;
reserve n,k,n1 for Nat;
reserve r,p for Real;
reserve x,y,z for object;
reserve seq,seq1,seq2,seq3,seq9,seq19 for Real_Sequence;

theorem Th38:
  (seq/"seq1)"=seq1/"seq
proof
  now
    let n be Element of NAT;
    thus (seq/"seq1)".n=(seq"(#)seq1"").n by Th34
      .=(seq1/"seq).n;
  end;
  hence thesis by FUNCT_2:63;
end;
