let A be non empty set ; :: thesis: ConsecutiveSet (A,0) = A
deffunc H₁( Ordinal, Sequence) -> set = union (rng $2);
deffunc H₂( Ordinal, set ) -> set = new_set $2;
deffunc H₃( Ordinal) -> set = ConsecutiveSet (A,$1);
A1: for O being Ordinal
for x being object holds
( x = H₃(O) iff ex L0 being Sequence st
( x = last L0 & dom L0 = succ O & L0 . 0 = A & ( for C being Ordinal st succ C in succ O holds
L0 . (succ C) = H₂(C,L0 . C) ) & ( for C being Ordinal st C in succ O & C <> 0 & C is limit_ordinal holds
L0 . C = H₁(C,L0 | C) ) ) ) by Def12;
thus H₃( 0 ) = A from ORDINAL2:sch 8(A1); :: thesis: verum