
theorem Th33:
for X1,X2 be non empty set, x be Element of X1, y be Element of X2,
  f be PartFunc of [:X1,X2:],ExtREAL
 st f is nonpositive holds
  ProjPMap1(f,x) is nonpositive & ProjPMap2(f,y) is nonpositive
proof
   let X1,X2 be non empty set, x be Element of X1, y be Element of X2,
   f be PartFunc of [:X1,X2:],ExtREAL;
   assume A1: f is nonpositive;

   for q be set st q in dom (ProjPMap1(f,x)) holds 0 >= (ProjPMap1(f,x)).q
   proof
    let q be set;
    assume A2: q in dom(ProjPMap1(f,x)); then
    reconsider y1 = q as Element of X2;
    ProjPMap1(f,x).q = f.(x,y1) by A2,Th26;
    hence 0 >= (ProjPMap1(f,x)).q by A1,MESFUNC5:8;
   end;
   hence ProjPMap1(f,x) is nonpositive by MESFUNC5:9;

   for p be set st p in dom(ProjPMap2(f,y)) holds 0 >= (ProjPMap2(f,y)).p
   proof
    let p be set;
    assume A3: p in dom(ProjPMap2(f,y)); then
    reconsider x1 = p as Element of X1;
    ProjPMap2(f,y).p = f.(x1,y) by A3,Th26;
    hence 0 >= (ProjPMap2(f,y)).p by A1,MESFUNC5:8;
   end;
   hence ProjPMap2(f,y) is nonpositive by MESFUNC5:9;
end;
