eq(f0(A,B,C),1,[f8(0,10,0,D,E,F,G),loop_cont_f8(E,F,G)],[D=0]).
eq(f0(A,B,C),1,[f8(0,10,0,D,E,F,G)],[D=1]).
eq(f8(A,B,C,D,E,F,G),1,[f8(A+2,B,C+1,D,E,F,G)],[B>=C+1]).
eq(f8(A,B,C,D,A,B,C),1,[],[D=1,2*B>=A+1,C>=B]).
eq(f8(A,B,C,D,A,B,C),1,[],[D=1,A>=2*B,C>=B]).