scheme :: LOPBAN_6:sch 1
RecExD3{ F1() -> non empty set , F2() -> Element of F1(), F3() -> Element of F1(), P1[ object , object , object , object ] } :
ex f being sequence of F1() st
( f . 0 = F2() & f . 1 = F3() & ( for n being Nat holds P1[n,f . n,f . (n + 1),f . (n + 2)] ) )
provided
A1: for n being Nat
for x, y being Element of F1() ex z being Element of F1() st P1[n,x,y,z]