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 Th26:
  for S, T being complete TopLattice for F being non empty Subset
of ContMaps (S, T), i being Element of S holds "\/" (F, (T |^ the carrier of S)
).i = "\/" ({ f.i where f is Element of (T |^ the carrier of S) : f in F }, T )
proof
  let S, T be complete TopLattice;
  let F be non empty Subset of ContMaps (S, T), i be Element of S;
  reconsider SYT = (the carrier of S) --> T as non-Empty RelStr-yielding
  ManySortedSet of the carrier of S;
  reconsider SYT as non-Empty reflexive-yielding RelStr-yielding ManySortedSet
  of the carrier of S;
  ContMaps (S, T) is full SubRelStr of (T |^ the carrier of S) by Def3;
  then
  the carrier of ContMaps (S, T) c= the carrier of (T |^ the carrier of S
  ) by YELLOW_0:def 13;
  then
A1: F c= the carrier of (T |^ the carrier of S);
  then reconsider X = F as Subset of product SYT by YELLOW_1:def 5;
A2: pi(X,i) = { f.i where f is Element of (T |^ the carrier of S) : f in F }
  proof
    thus pi(X,i) c= { f.i where f is Element of (T |^ the carrier of S) : f in
    F }
    proof
      let a be object;
      assume a in pi(X,i);
      then ex g being Function st g in X & a = g.i by CARD_3:def 6;
      hence thesis by A1;
    end;
    thus { f.i where f is Element of (T |^ the carrier of S) : f in F } c= pi(
    X,i)
    proof
      let a be object;
      assume
      a in { f.i where f is Element of (T |^ the carrier of S) : f in F };
      then
      ex g being Element of (T |^ the carrier of S) st a = g.i & g in F;
      hence thesis by CARD_3:def 6;
    end;
  end;
  T |^ the carrier of S = product SYT & for i being Element of S holds SYT
  .i is complete LATTICE by FUNCOP_1:7,YELLOW_1:def 5;
  then "\/" (F, (T |^ the carrier of S)).i = "\/" (pi(X,i), SYT.i) by
WAYBEL_3:32
    .= "\/" ({ f.i where f is Element of (T |^ the carrier of S) : f in F },
  T ) by A2,FUNCOP_1:7;
  hence thesis;
end;
