blk_del_city(Ci,Co,P,CPop,Long,Lat,El) :- pot_del_city(Ci,Co,P,CPop,Long,Lat,El), organization(O,N,Ci,Co,P,E), rem_organization(O,N,Ci,Co,P,E). rem_organization(O,N,Ci,Co,P,E) :- organization(O,N,Ci,Co,P,E), not del_organization(O,N,Ci,Co,P,E). %%% del not yet defined blk_del_province(P,C,PPop,PA,PCap,PCapProv) :- pot_del_city(CN,C,P,CPop,Long,Lat,El), blk_del_city(CN,C,P,CPop,Long,Lat,El), pot_del_province(P,C,PPop,PA,PCap,PCapProv). blk_del_country(N,C,Cap,CapP,A,Pop) :- pot_del_province(P,C,PPop,PA,PCap,PCapProv), blk_del_province(P,C,PPop,PA,PCap,PCapProv), pot_del_country(N,C,Cap,CapP,A,Pop).