let E be Element of F; :: thesis: ( E is finite & E is Function-like & E is Relation-like )
per cases ( F = {} or F <> {} ) ;
end;