scheme :: CFCONT_1:sch 1
CompSeqChoice{ P1[ object , object ] } :
ex s1 being Complex_Sequence st
for n being Nat holds P1[n,s1 . n]
provided
A1: for n being Nat ex g being Complex st P1[n,g]