eq(f1(A,B),1,[f0(A,B,C,D,E),loop_cont_f0(D,E)],[C=0]).
eq(f1(A,B),1,[f0(A,B,C,D,E)],[C=1]).
eq(f0(A,B,C,D,E),1,[f0(A+B,B,C,D,E)],[A>=1,B>=1]).
eq(f0(A,B,C,D,E),1,[f0(A+B,B,C,D,E)],[A>=1,0>=B+1]).
eq(f0(A,B,C,A,B),0,[],[C=1]).