eq(eval0(A,B,C),1,[eval1(A,B,C,D,E,F,G),loop_cont_eval1(E,F,G)],[D=0,A>=1]).
eq(eval0(A,B,C),1,[eval1(A,B,C,D,E,F,G)],[D=1,A>=1]).
eq(eval1(A,B,C,D,E,F,G),1,[eval1(A,B+A,C,D,E,F,G)],[A>=B+1,C>=A+1,A>=1]).
eq(eval1(A,B,C,D,E,F,G),1,[eval1(A,B,B-A,D,E,F,G)],[A>=B+1,C>=A+1,A>=1]).
eq(eval1(A,B,C,D,A,B,C),0,[],[D=1]).