reserve X for non empty set;
reserve e,e1,e2,e19,e29 for Equivalence_Relation of X,
  x,y,x9,y9 for set;
reserve A for non empty set,
  L for lower-bounded LATTICE;
reserve T,L1 for Sequence,
  O,O1,O2,O3,C for Ordinal;

theorem Th38:
  for d be distance_function of A,L for S being ExtensionSeq of A,
  d for k,l being Nat st k <= l holds (S.k)`1 c= (S.l)`1
proof
  let d be distance_function of A,L;
  let S be ExtensionSeq of A,d;
  let k be Nat;
  defpred X[Nat] means k <= $1 implies (S.k)`1 c= (S.$1)`1;
A1: for i being Nat st X[i] holds X[i+1]
  proof
    let i be Nat;
    assume that
A2: k <= i implies (S.k)`1 c= (S.i)`1 and
A3: k <= i+1;
    per cases by A3,NAT_1:8;
    suppose
      k = i+1;
      hence thesis;
    end;
    suppose
A4:   k <= i;
      consider A9 being non empty set, d9 being distance_function of A9,L, Aq
      being non empty set, dq being distance_function of Aq,L such that
A5:   Aq, dq is_extension_of A9,d9 and
A6:   S.i = [A9,d9] and
A7:   S.(i+1) = [Aq,dq] by Def20;
A8:   (S.i)`1 c= ConsecutiveSet(A9,DistEsti(d9)) by Th24,A6;
      ex q being QuadrSeq of d9 st Aq = NextSet(d9) & dq = NextDelta(q)
            by A5;
      then (S.(i+1))`1 = ConsecutiveSet(A9,DistEsti(d9)) by A7;
      hence thesis by A2,A4,A8;
    end;
  end;
A9: X[ 0 ] by NAT_1:3;
  thus for l being Nat holds X[l] from NAT_1:sch 2(A9, A1);
end;
