
theorem Th22:
  for C be Simple_closed_curve for i,j,k,n be Nat st n
  is_sufficiently_large_for C & 1 <= k & k <= len Span(C,n) & [i,j] in Indices
  Gauge(C,n) & Span(C,n)/.k = Gauge(C,n)*(i,j) holds i > 1
proof
  let C be Simple_closed_curve;
  let i,j,k,n be Nat;
  assume that
A1: n is_sufficiently_large_for C and
A2: 1 <= k and
A3: k <= len Span(C,n) and
A4: [i,j] in Indices Gauge(C,n) and
A5: Span(C,n)/.k = Gauge(C,n)*(i,j);
A6: len Span(C,n) > 4 by GOBOARD7:34;
  SpanStart(C,n) in BDD C by A1,Th6;
  then
A7: W-bound C <= W-bound BDD C by JORDAN1C:6;
A8: j <= width Gauge(C,n) by A4,MATRIX_0:32;
  k in dom Span(C,n) by A2,A3,FINSEQ_3:25;
  then Span(C,n)/.k in L~Span(C,n) by A6,GOBOARD1:1,XXREAL_0:2;
  then
A9: W-bound L~Span(C,n) <= Gauge(C,n)*(i,j)`1 by A5,PSCOMP_1:24;
A10: BDD C c= Cl BDD C by PRE_TOPC:18;
A11: BDD C is bounded by JORDAN2C:106;
  then
A12: Cl BDD C is compact by TOPREAL6:79;
  SpanStart(C,n) in BDD C by A1,Th6;
  then
A13: W-bound BDD C = W-bound Cl BDD C by A11,TOPREAL6:85;
  L~Span(C,n) c= BDD C by A1,Th21;
  then W-bound L~Span(C,n) >= W-bound Cl BDD C by A12,A10,PSCOMP_1:69
,XBOOLE_1:1;
  then
A14: W-bound BDD C <= Gauge(C,n)*(i,j)`1 by A13,A9,XXREAL_0:2;
  len Gauge(C,n) >= 4 by JORDAN8:10;
  then
A15: len Gauge(C,n) >= 2 by XXREAL_0:2;
A16: 1 <= i by A4,MATRIX_0:32;
A17: 1 <= j by A4,MATRIX_0:32;
  len Gauge(C,n) = width Gauge(C,n) by JORDAN8:def 1;
  then Gauge(C,n)*(2,j)`1 = W-bound C by A17,A8,JORDAN8:11;
  then Gauge(C,n)*(2,j)`1 <= Gauge(C,n)*(i,j)`1 by A7,A14,XXREAL_0:2;
  then i >= 1+1 by A16,A17,A8,A15,GOBOARD5:3;
  hence thesis by NAT_1:13;
end;
