eq(start(A,B),1,[eval(A,B,C,D,E),loop_cont_eval(D,E)],[C=0]).
eq(start(A,B),1,[eval(A,B,C,D,E)],[C=1]).
eq(eval(A,B,C,D,E),1,[eval(A-F,B+G,C,D,E)],[A>=B+1,F>=0,G>=1]).
eq(eval(A,B,C,A,B),0,[],[C=1]).