
theorem LM34:
  for X being RealNormSpace-Sequence,
      x be Point of product X
  ex d be FinSequence of REAL
  st dom d = dom X
   & for i be Element of dom X holds d.i = ||.x.i.||"
  proof
    let X be RealNormSpace-Sequence,
        x be Point of product X;
    defpred P1[object, object] means
    ex i be Element of dom X
    st $1 = i & $2=||.x.i.||";
    A4: for n being Nat st n in Seg len X holds
        ex d being Element of REAL st P1[n,d]
    proof
      let n be Nat;
      assume n in Seg len X; then
      reconsider i = n as Element of dom X by FINSEQ_1:def 3;
      reconsider d = ||.x.i.||" as Element of REAL by XREAL_0:def 1;
      take d;
      thus P1[n,d];
    end;
    consider F being FinSequence of REAL such that
    A5: len F = len X
      & for n being Nat st n in Seg len X holds
        P1[n,F /. n] from FINSEQ_4:sch 1(A4);
    take F;
    thus
    A6: dom F = dom X by A5,FINSEQ_3:29;
    thus for i be Element of dom X holds F.i = ||.x.i.||"
    proof
      let i be Element of dom X;
      i in dom X; then
      A7: i in Seg len X by FINSEQ_1:def 3;
      reconsider n = i as Nat;
      consider j be Element of dom X such that
      A8: n = j & F/.n = ||.x.j.||" by A5,A7;
      thus F.i = ||.x.i.||" by A6,A8,PARTFUN1:def 6;
    end;
  end;
