reserve x,y for object,X for set,
  f for Function,
  R,S for Relation;

theorem Th7:
  f is complex-valued iff for x holds f.x is complex
proof
  hereby
    assume
A1: f is complex-valued;
    let x;
    per cases;
    suppose
      x in dom f;
      hence f.x is complex by A1;
    end;
    suppose
      not x in dom f;
      hence f.x is complex by FUNCT_1:def 2;
    end;
  end;
  thus thesis;
end;
