eq(f3(A,B),1,[f0(2,B,C,D,E),loop_cont_f0(D,E)],[C=0]).
eq(f3(A,B),1,[f0(2,B,C,D,E)],[C=1]).
eq(f0(A,B,C,D,E),1,[f0(A+1,F,C,D,E)],[F>=1]).
eq(f0(A,B,C,D,E),1,[f0(A-1,F,C,D,E)],[0>=F]).
eq(f0(A,B,C,A,B),0,[],[C=1]).