reserve p, q for Point of TOP-REAL 2,
  r for Real,
  h for non constant standard special_circular_sequence,
  g for FinSequence of TOP-REAL 2,
  f for non empty FinSequence of TOP-REAL 2,
  I, i1, i, j, k for Nat;

theorem Th39:
  E-bound L~h = (GoB h)*(len GoB h,1)`1
proof
  set X = { q`1 : q in L~h }, A = (GoB h)*(len GoB h,1)`1;
  consider a be object such that
A1: a in L~h by XBOOLE_0:def 1;
A2: X c= REAL
  proof
    let b be object;
    assume b in X;
    then ex qq be Point of TOP-REAL 2 st b = qq`1 & qq in L~h;
    hence thesis by XREAL_0:def 1;
  end;
  reconsider a as Point of TOP-REAL 2 by A1;
  a`1 in X by A1;
  then reconsider X as non empty Subset of REAL by A2;
  upper_bound X = A
  proof
A3: for p be Real st p in X holds p <= A
    proof
      let p be Real;
      assume p in X;
      then
A4:   ex s be Point of TOP-REAL 2 st p = s`1 & s in L~h;
      1 <= width GoB h by GOBOARD7:33;
      hence thesis by A4,Th32;
    end;
A5: 1 <= width GoB h by GOBOARD7:33;
    1 <= len GoB h by GOBOARD7:32;
    then consider q1 be Point of TOP-REAL 2 such that
A6: q1`1 = (GoB h)*(len GoB h,1)`1 and
A7: q1 in L~h by A5,Th35;
    reconsider q11 = q1`1 as Real;
    for q be Real st for p be Real st p in X holds p <= q
    holds A <= q
    proof
A8:   q11 in X by A7;
      let q be Real;
      assume for p be Real st p in X holds p <= q;
      hence thesis by A6,A8;
    end;
    hence thesis by A3,SEQ_4:46;
  end;
  hence thesis by Th17;
end;
