deffunc H1( Nat) -> Element of INT = In ((((- 1) |^ ($1 + 1)) * (num-polytopes (p,($1 - 1)))),INT);
consider s being FinSequence of INT such that
A1: len s = (dim p) + 1 and
A2: for j being Nat st j in dom s holds
s . j = H1(j) from FINSEQ_2:sch 1();
 take s ; :: thesis: ( len s = (dim p) + 1 & ( for k being Nat st 1 <= k & k <= (dim p) + 1 holds
s . k = ((- 1) |^ (k + 1)) * (num-polytopes (p,(k - 1))) ) )
for j being Nat st 1 <= j & j <= (dim p) + 1 holds
s . j = ((- 1) |^ (j + 1)) * (num-polytopes (p,(j - 1)))
proof
let j be Nat; :: thesis: ( 1 <= j & j <= (dim p) + 1 implies s . j = ((- 1) |^ (j + 1)) * (num-polytopes (p,(j - 1))) )
assume ( 1 <= j & j <= (dim p) + 1 ) ; :: thesis: s . j = ((- 1) |^ (j + 1)) * (num-polytopes (p,(j - 1)))
then j in dom s by A1, FINSEQ_3:25;
then s . j = H1(j) by A2;
hence s . j = ((- 1) |^ (j + 1)) * (num-polytopes (p,(j - 1))) ; :: thesis: verum
end;
hence ( len s = (dim p) + 1 & ( for k being Nat st 1 <= k & k <= (dim p) + 1 holds
s . k = ((- 1) |^ (k + 1)) * (num-polytopes (p,(k - 1))) ) ) by A1; :: thesis: verum