scheme :: PROOFS_1:sch 3
ProofInduction{ F1() -> set , F2() -> Rule, P1[ object ] } :
for a being object st F1(),F2() |- a holds
P1[a]
provided
A1: for a being object st a in F1() holds
P1[a] and
A2: for X being set
for a being object st [X,a] in F2() & ( for b being object st b in X holds
P1[b] ) holds
P1[a]