MAYBE 0.08/0.18 MAYBE 0.08/0.18 0.08/0.18 Problem: 0.08/0.18 prime(0()) -> false() 0.08/0.18 prime(s(0())) -> false() 0.08/0.18 prime(s(s(x))) -> prime1(s(s(x)),s(x)) 0.08/0.18 prime1(x,0()) -> false() 0.08/0.18 prime1(x,s(0())) -> true() 0.08/0.18 prime1(x,s(s(y))) -> and(not(divp(s(s(y)),x)),prime1(x,s(y))) 0.08/0.18 divp(x,y) -> =(rem(x,y),0()) 0.08/0.18 0.08/0.18 Proof: 0.08/0.18 Open 0.08/0.18 EOF