defpred S1[ Nat] means for G being finite _Graph st G .order() = $1 holds
P1[G];
A3: for k being non empty Nat st S1[k] holds
S1[k + 1] by A2;
let G be finite _Graph; :: thesis: P1[G]
A4: G .order() = G .order() ;
A5: S1[1] by A1;
for k being non empty Nat holds S1[k] from NAT_1:sch 10(A5, A3);
hence P1[G] by A4; :: thesis: verum