eq(f0(A,B,C),1,[f1(A,B,C,D,E,F,G),loop_cont_f1(E,F,G)],[D=0]).
eq(f0(A,B,C),1,[f1(A,B,C,D,E,F,G)],[D=1]).
eq(f1(A,B,C,D,E,F,G),1,[f1(H,I,B,D,E,F,G)],[A>=1,J>=1,B=0]).
eq(f1(A,B,C,D,A,B,C),0,[],[D=1]).