reserve n,m for Element of NAT;
reserve r,s for Real;
reserve z for Complex;
reserve CNS,CNS1,CNS2 for ComplexNormSpace;
reserve RNS for RealNormSpace;
reserve X,X1 for set;

theorem Th113:
  for X be set, f be PartFunc of CNS,RNS st X c= dom f & f|X is
  constant holds f is_Lipschitzian_on X
proof
  let X be set;
  let f be PartFunc of CNS,RNS;
  assume that
A1: X c= dom f and
A2: f|X is constant;
  now
    let x1,x2 be Point of CNS;
    assume that
A3: x1 in X and
A4: x2 in X;
A5: x1 in X /\ dom f & x2 in X /\ dom f by A1,A3,A4,XBOOLE_0:def 4;
    f/.x1= f.x1 by A1,A3,PARTFUN1:def 6
      .= f.x2 by A2,A5,PARTFUN2:58
      .= f/.x2 by A1,A4,PARTFUN1:def 6;
    then ||. f/.x1-f/.x2.|| = ||. 0.RNS .|| by RLVECT_1:15
      .= 0 by NORMSP_1:1;
    hence ||. f/.x1-f/.x2.|| <= 1*||. x1-x2 .|| by CLVECT_1:105;
  end;
  hence thesis by A1;
end;
