scheme :: FIB_NUM:sch 1
FibInd{ P1[ set ] } :
for k being Nat holds P1[k]
provided
A1: P1[ 0 ] and
A2: P1[1] and
A3: for k being Nat st P1[k] & P1[k + 1] holds
P1[k + 2]