deffunc H₁( set ) -> set = (S . $1) `1 ;
consider f being ManySortedSet of such that
A: for i being set st i in NAT holds
f . i = H₁(i) from PBOOLE:sch 4();

now

let i be Nat; :: thesis: f . i is PartFunc of (the_Vertices_of G),NAT
i in NAT by ORDINAL1:def 13;
then f . i = (S . i) `1 by A;
hence f . i is PartFunc of (the_Vertices_of G),NAT ; :: thesis: verum

end;

then reconsider f = f as preVNumberingSeq of G by dpVNumSeq;
take f ; :: thesis: for n being Nat holds f . n = (S . n) `1
let n be Nat; :: thesis: f . n = (S . n) `1
n in NAT by ORDINAL1:def 13;
hence f . n = (S . n) `1 by A; :: thesis: verum