reserve x,y,X,Y for set;
reserve C,D,E for non empty set;
reserve SC for Subset of C;
reserve SD for Subset of D;
reserve SE for Subset of E;
reserve c,c1,c2 for Element of C;
reserve d,d1,d2 for Element of D;
reserve e for Element of E;
reserve f,f1,g for PartFunc of C,D;
reserve t for PartFunc of D,C;
reserve s for PartFunc of D,E;
reserve h for PartFunc of C,E;
reserve F for PartFunc of D,D;

theorem Th35:
  f|X is constant iff ex d st for c st c in X /\ dom f holds f/.c = d
proof
  thus f|X is constant implies ex d st for c st c in X /\ dom f holds f/.c = d
  proof
    given d such that
A1: for c st c in dom(f|X) holds (f|X).c = d;
    take d;
    let c;
    assume
A2: c in X /\ dom f;
    then
A3: c in dom(f|X) by RELAT_1:61;
    c in dom f by A2,XBOOLE_0:def 4;
    hence f/.c = f.c by PARTFUN1:def 6
      .= (f|X).c by A3,FUNCT_1:47
      .= d by A1,A3;
  end;
  given d such that
A4: for c st c in X /\ dom f holds f/.c = d;
  take d;
  let c;
  assume
A5: c in dom(f|X);
  then
A6: c in X /\ dom f by RELAT_1:61;
  then
A7: c in dom f by XBOOLE_0:def 4;
  thus (f|X).c = f.c by A5,FUNCT_1:47
    .= f/.c by A7,PARTFUN1:def 6
    .= d by A4,A6;
end;
