theorem Th34:
  A = {} implies block_Pervin_uniformity(A) = [:X,X:]
  proof
    assume A = {};
    then block_Pervin_uniformity(A) = [:X \ {},X \ {}:] \/ [:{},{}:];
    hence thesis;
  end;
