now

let x be set ; :: thesis: ( x in P /\ R implies ex y, z being set st x = [y,z] )
( x in P & x in R implies ex y, z being set st x = [y,z] ) by Def1;
hence ( x in P /\ R implies ex y, z being set st x = [y,z] ) by XBOOLE_0:def 4; :: thesis: verum

end;

hence P /\ R is Relation-like by Def1; :: thesis: verum