RelStr(# the carrier of N, the InternalRel of N #) = RelStr(# the carrier of (f * N), the InternalRel of (f * N) #) by Def8;
hence not f * N is empty ; :: thesis: verum