reserve X1, X2, Y for non empty RelStr,
  f for Function of [:X1, X2:], Y,
  x for Element of X1,
  y for Element of X2;

theorem Th11:
  for R, S, T being non empty reflexive RelStr, f being Function
  of [:R,S:], T, a being Element of R, b being Element of S st f is antitone
  holds Proj (f, a) is antitone & Proj (f, b) is antitone
proof
  let R, S, T be non empty reflexive RelStr, f be Function of [:R,S:], T;
  let a be Element of R, b be Element of S;
  reconsider a9 = a as Element of R;
  set g = Proj (f, b), h = Proj (f, a);
  assume
A1: f is antitone;
A2: now
    reconsider b9 = b as Element of S;
    let x, y be Element of R;
A3: b9 <= b9;
A4: g. x = f.(x, b) & g. y = f.(y, b) by Th8;
    assume x <= y;
    then [x, b9] <= [y, b9] by A3,YELLOW_3:11;
    hence g.x >= g.y by A1,A4;
  end;
  now
    let x, y be Element of S;
A5: a9 <= a9;
A6: h. x = f.(a, x) & h. y = f.(a, y) by Th7;
    assume x <= y;
    then [a9, x] <= [a9, y] by A5,YELLOW_3:11;
    hence h.x >= h.y by A1,A6;
  end;
  hence thesis by A2;
end;
