set n = |.(ar s).|;
reconsider EE = |.(ar s).| -placesOf E as Equivalence_Relation of (|.(ar s).| -tuples_on U) ;
set f = the |.(ar s).| -placesOf E,E -respecting Function of (|.(ar s).| -tuples_on U),U;
set g = the |.(ar s).| -placesOf E, id BOOLEAN -respecting Function of (|.(ar s).| -tuples_on U),BOOLEAN;
per cases ( s is relational or not s is relational ) ;
end;