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 Th33:
  for d be BiFunction of A,L st d is zeroed for q being QuadrSeq
  of d holds ConsecutiveDelta(q,O) is zeroed
proof
  let d be BiFunction of A,L;
  assume
A1: d is zeroed;
  let q be QuadrSeq of d;
  defpred X[Ordinal] means ConsecutiveDelta(q,$1) is zeroed;
A2: for O1 st X[O1] holds X[succ O1]
  proof
    let O1;
    assume ConsecutiveDelta(q,O1) is zeroed;
    then
A3: new_bi_fun(ConsecutiveDelta(q,O1),Quadr(q,O1)) is zeroed by Th16;
    let z be Element of ConsecutiveSet(A,succ O1);
    reconsider z9 = z as Element of new_set ConsecutiveSet(A,O1) by Th22;
    ConsecutiveDelta(q,succ O1) = new_bi_fun(BiFun(ConsecutiveDelta(q,O1),
    ConsecutiveSet(A,O1),L),Quadr(q,O1)) by Th27
      .= new_bi_fun(ConsecutiveDelta(q,O1),Quadr(q,O1)) by Def15;
    hence
    ConsecutiveDelta(q,succ O1).(z,z) = new_bi_fun(ConsecutiveDelta(q,O1)
    ,Quadr(q,O1)).(z9,z9)
      .= Bottom L by A3;
  end;
A4: for O2 st O2 <> 0 & O2 is limit_ordinal & for O1 st O1 in O2 holds X[O1
  ] holds X[O2]
  proof
    deffunc U(Ordinal) = ConsecutiveDelta(q,$1);
    let O2;
    assume that
A5: O2 <> 0 & O2 is limit_ordinal and
A6: for O1 st O1 in O2 holds ConsecutiveDelta(q,O1) is zeroed;
    set CS = ConsecutiveSet(A,O2);
    consider Ls being Sequence such that
A7: dom Ls = O2 & for O1 being Ordinal st O1 in O2 holds Ls.O1 = U(O1
    ) from ORDINAL2:sch 2;
    ConsecutiveDelta(q,O2) = union rng Ls by A5,A7,Th28;
    then reconsider f = union rng Ls as BiFunction of CS,L;
    deffunc U(Ordinal) = ConsecutiveSet(A,$1);
    consider Ts being Sequence such that
A8: dom Ts = O2 & for O1 being Ordinal st O1 in O2 holds Ts.O1 = U(O1
    ) from ORDINAL2:sch 2;
A9: ConsecutiveSet(A,O2) = union rng Ts by A5,A8,Th23;
    f is zeroed
    proof
      let x be Element of CS;
      consider y being set such that
A10:  x in y and
A11:  y in rng Ts by A9,TARSKI:def 4;
      consider o being object such that
A12:  o in dom Ts and
A13:  y = Ts.o by A11,FUNCT_1:def 3;
      reconsider o as Ordinal by A12;
A14:  Ls.o = ConsecutiveDelta(q,o) by A7,A8,A12;
      then reconsider h = Ls.o as BiFunction of ConsecutiveSet(A,o),L;
      reconsider x9 = x as Element of ConsecutiveSet(A,o) by A8,A10,A12,A13;
A15:  dom h = [:ConsecutiveSet(A,o),ConsecutiveSet(A,o):] by FUNCT_2:def 1;
A16:  h is zeroed
      proof
        let z be Element of ConsecutiveSet(A,o);
A17:    ConsecutiveDelta(q,o) is zeroed by A6,A8,A12;
        thus h.(z,z) = ConsecutiveDelta(q,o).(z,z) by A7,A8,A12
          .= Bottom L by A17;
      end;
      ConsecutiveDelta(q,o) in rng Ls by A7,A8,A12,A14,FUNCT_1:def 3;
      then
A18:  h c= f by A14,ZFMISC_1:74;
      x in ConsecutiveSet(A,o) by A8,A10,A12,A13;
      then [x,x] in dom h by A15,ZFMISC_1:87;
      hence f.(x,x) = h.(x9,x9) by A18,GRFUNC_1:2
        .= Bottom L by A16;
    end;
    hence thesis by A5,A7,Th28;
  end;
A19: X[0]
  proof
    let z be Element of ConsecutiveSet(A,0);
    reconsider z9 = z as Element of A by Th21;
    thus ConsecutiveDelta(q,0).(z,z) = d.(z9,z9) by Th26
      .= Bottom L by A1;
  end;
  for O holds X[O] from ORDINAL2:sch 1(A19,A2,A4);
  hence thesis;
end;
