let f be Function; :: thesis: ( ex k being Nat st dom f c= k implies ex p being XFinSequence st f c= p )
given k being Nat such that A1: dom f c= k ; :: thesis: ex p being XFinSequence st f c= p
deffunc H₁( object ) -> set = f . $1;
consider g being Function such that
A2: ( dom g = k & ( for x being object st x in k holds
g . x = H₁(x) ) ) from FUNCT_1:sch 3();
reconsider g = g as XFinSequence by A2, FINSET_1:10, ORDINAL1:def 7;
take g ; :: thesis: f c= g
let y, z be object ; :: according to RELAT_1:def 3 :: thesis: ( not [y,z] in f or [y,z] in g )
assume A3: [y,z] in f ; :: thesis: [y,z] in g
then A4: y in dom f by XTUPLE_0:def 12;
then A5: [y,(g . y)] in g by A1, A2, FUNCT_1:1;
z is set by TARSKI:1;
then f . y = z by A3, A4, FUNCT_1:def 2;
hence [y,z] in g by A1, A2, A4, A5; :: thesis: verum