このディレクトリの索引
%
%  all/2 リスト要素が全てVである。
%

all([],_).
all([V|R],V) :-
        all(R,V).