Article CSSPACE3, MML version 4.99.1005

:: CSSPACE3:funcnot 1 => CSSPACE3:func 1
definition
  func the_set_of_l1ComplexSequences -> Element of bool the carrier of Linear_Space_of_ComplexSequences means
    for b1 being set holds
          b1 in it
       iff
          b1 in the_set_of_ComplexSequences & seq_id b1 is absolutely_summable;
end;

:: CSSPACE3:def 1
theorem
for b1 being Element of bool the carrier of Linear_Space_of_ComplexSequences holds
      b1 = the_set_of_l1ComplexSequences
   iff
      for b2 being set holds
            b2 in b1
         iff
            b2 in the_set_of_ComplexSequences & seq_id b2 is absolutely_summable;

:: CSSPACE3:th 1
theorem
for b1 being Element of COMPLEX
for b2 being Function-like quasi_total Relation of NAT,COMPLEX
for b3 being Function-like quasi_total Relation of NAT,REAL
      st b2 is convergent &
         (for b4 being Element of NAT holds
            b3 . b4 = |.(b2 . b4) - b1.|)
   holds b3 is convergent &
    lim b3 = |.(lim b2) - b1.|;

:: CSSPACE3:funcreg 1
registration
  cluster the_set_of_l1ComplexSequences -> non empty;
end;

:: CSSPACE3:funcreg 2
registration
  cluster the_set_of_l1ComplexSequences -> linearly-closed;
end;

:: CSSPACE3:funcreg 3
registration
  cluster CLSStruct(#the_set_of_l1ComplexSequences,Zero_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Add_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Mult_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences)#) -> right_complementable Abelian add-associative right_zeroed strict ComplexLinearSpace-like;
end;

:: CSSPACE3:funcnot 2 => CSSPACE3:func 2
definition
  func cl_norm -> Function-like quasi_total Relation of the_set_of_l1ComplexSequences,REAL means
    for b1 being set
          st b1 in the_set_of_l1ComplexSequences
       holds it . b1 = Sum |.seq_id b1.|;
end;

:: CSSPACE3:def 2
theorem
for b1 being Function-like quasi_total Relation of the_set_of_l1ComplexSequences,REAL holds
      b1 = cl_norm
   iff
      for b2 being set
            st b2 in the_set_of_l1ComplexSequences
         holds b1 . b2 = Sum |.seq_id b2.|;

:: CSSPACE3:funcreg 4
registration
  let a1 be non empty set;
  let a2 be Element of a1;
  let a3 be Function-like quasi_total Relation of [:a1,a1:],a1;
  let a4 be Function-like quasi_total Relation of [:COMPLEX,a1:],a1;
  let a5 be Function-like quasi_total Relation of a1,REAL;
  cluster CNORMSTR(#a1,a2,a3,a4,a5#) -> non empty strict;
end;

:: CSSPACE3:th 4
theorem
for b1 being CNORMSTR
      st CLSStruct(#the carrier of b1,the ZeroF of b1,the addF of b1,the Mult of b1#) is non empty right_complementable Abelian add-associative right_zeroed ComplexLinearSpace-like CLSStruct
   holds b1 is non empty right_complementable Abelian add-associative right_zeroed ComplexLinearSpace-like CLSStruct;

:: CSSPACE3:th 5
theorem
for b1 being Function-like quasi_total Relation of NAT,COMPLEX
      st for b2 being Element of NAT holds
           b1 . b2 = 0c
   holds b1 is absolutely_summable & Sum |.b1.| = 0;

:: CSSPACE3:th 6
theorem
for b1 being Function-like quasi_total Relation of NAT,COMPLEX
   st b1 is absolutely_summable & Sum |.b1.| = 0
for b2 being Element of NAT holds
   b1 . b2 = 0c;

:: CSSPACE3:th 7
theorem
CNORMSTR(#the_set_of_l1ComplexSequences,Zero_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Add_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Mult_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),cl_norm#) is non empty right_complementable Abelian add-associative right_zeroed ComplexLinearSpace-like CLSStruct;

:: CSSPACE3:funcnot 3 => CSSPACE3:func 3
definition
  func Complex_l1_Space -> non empty CNORMSTR equals
    CNORMSTR(#the_set_of_l1ComplexSequences,Zero_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Add_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Mult_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),cl_norm#);
end;

:: CSSPACE3:def 3
theorem
Complex_l1_Space = CNORMSTR(#the_set_of_l1ComplexSequences,Zero_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Add_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),Mult_(the_set_of_l1ComplexSequences,Linear_Space_of_ComplexSequences),cl_norm#);

:: CSSPACE3:th 8
theorem
the carrier of Complex_l1_Space = the_set_of_l1ComplexSequences &
 (for b1 being set holds
       b1 is Element of the carrier of Complex_l1_Space
    iff
       b1 is Function-like quasi_total Relation of NAT,COMPLEX & seq_id b1 is absolutely_summable) &
 0. Complex_l1_Space = CZeroseq &
 (for b1 being Element of the carrier of Complex_l1_Space holds
    b1 = seq_id b1) &
 (for b1, b2 being Element of the carrier of Complex_l1_Space holds
 b1 + b2 = (seq_id b1) + seq_id b2) &
 (for b1 being Element of COMPLEX
 for b2 being Element of the carrier of Complex_l1_Space holds
    b1 * b2 = b1 (#) seq_id b2) &
 (for b1 being Element of the carrier of Complex_l1_Space holds
    - b1 = - seq_id b1 & seq_id - b1 = - seq_id b1) &
 (for b1, b2 being Element of the carrier of Complex_l1_Space holds
 b1 - b2 = (seq_id b1) - seq_id b2) &
 (for b1 being Element of the carrier of Complex_l1_Space holds
    seq_id b1 is absolutely_summable) &
 (for b1 being Element of the carrier of Complex_l1_Space holds
    ||.b1.|| = Sum |.seq_id b1.|);

:: CSSPACE3:th 9
theorem
for b1, b2 being Element of the carrier of Complex_l1_Space
for b3 being Element of COMPLEX holds
   (||.b1.|| = 0 implies b1 = 0. Complex_l1_Space) &
    (b1 = 0. Complex_l1_Space implies ||.b1.|| = 0) &
    0 <= ||.b1.|| &
    ||.b1 + b2.|| <= ||.b1.|| + ||.b2.|| &
    ||.b3 * b1.|| = |.b3.| * ||.b1.||;

:: CSSPACE3:funcreg 5
registration
  cluster Complex_l1_Space -> non empty right_complementable Abelian add-associative right_zeroed ComplexLinearSpace-like ComplexNormSpace-like;
end;

:: CSSPACE3:funcnot 4 => CSSPACE3:func 4
definition
  let a1 be non empty CNORMSTR;
  let a2, a3 be Element of the carrier of a1;
  func dist(A2,A3) -> Element of REAL equals
    ||.a2 - a3.||;
end;

:: CSSPACE3:def 4
theorem
for b1 being non empty CNORMSTR
for b2, b3 being Element of the carrier of b1 holds
dist(b2,b3) = ||.b2 - b3.||;

:: CSSPACE3:attrnot 1 => CSSPACE3:attr 1
definition
  let a1 be non empty CNORMSTR;
  let a2 be Function-like quasi_total Relation of NAT,the carrier of a1;
  attr a2 is CCauchy means
    for b1 being Element of REAL
          st 0 < b1
       holds ex b2 being Element of NAT st
          for b3, b4 being Element of NAT
                st b2 <= b3 & b2 <= b4
             holds dist(a2 . b3,a2 . b4) < b1;
end;

:: CSSPACE3:dfs 5
definiens
  let a1 be non empty CNORMSTR;
  let a2 be Function-like quasi_total Relation of NAT,the carrier of a1;
To prove
     a2 is CCauchy
it is sufficient to prove
  thus for b1 being Element of REAL
          st 0 < b1
       holds ex b2 being Element of NAT st
          for b3, b4 being Element of NAT
                st b2 <= b3 & b2 <= b4
             holds dist(a2 . b3,a2 . b4) < b1;

:: CSSPACE3:def 5
theorem
for b1 being non empty CNORMSTR
for b2 being Function-like quasi_total Relation of NAT,the carrier of b1 holds
      b2 is CCauchy(b1)
   iff
      for b3 being Element of REAL
            st 0 < b3
         holds ex b4 being Element of NAT st
            for b5, b6 being Element of NAT
                  st b4 <= b5 & b4 <= b6
               holds dist(b2 . b5,b2 . b6) < b3;

:: CSSPACE3:attrnot 2 => CSSPACE3:attr 1
notation
  let a1 be non empty CNORMSTR;
  let a2 be Function-like quasi_total Relation of NAT,the carrier of a1;
  synonym Cauchy_sequence_by_Norm for CCauchy;
end;

:: CSSPACE3:th 10
theorem
for b1 being non empty right_complementable Abelian add-associative right_zeroed ComplexLinearSpace-like ComplexNormSpace-like CNORMSTR
for b2 being Function-like quasi_total Relation of NAT,the carrier of b1 holds
      b2 is CCauchy(b1)
   iff
      for b3 being Element of REAL
            st 0 < b3
         holds ex b4 being Element of NAT st
            for b5, b6 being Element of NAT
                  st b4 <= b5 & b4 <= b6
               holds ||.(b2 . b5) - (b2 . b6).|| < b3;

:: CSSPACE3:th 11
theorem
for b1 being Function-like quasi_total Relation of NAT,the carrier of Complex_l1_Space
      st b1 is CCauchy(Complex_l1_Space)
   holds b1 is convergent(Complex_l1_Space);