theorem Th36:
C is /\-distributive iff for X, a holds "/\"({a"\/"b: b in X}, C) [= a"\/""/\"
  (X,C)
proof
  thus C is /\-distributive implies for X, a holds
  "/\"({a"\/"b: b in X}, C) [= a"\/""/\"(X,C)
  proof
    assume
A1: for X for a,b,c st X is_greater_than a &
    (for d st X is_greater_than d holds d [= a) &
    {b"\/"a9: a9 in X} is_greater_than c &
    for d st {b"\/"b9: b9 in X} is_greater_than d holds d [= c
    holds c [= b"\/"a;
    let X, a;
    set Y = {a"\/"b: b in X};
A2: X is_greater_than "/\"(X,C) by Th34;
A3: for d st X is_greater_than d holds d [= "/\"(X,C) by Th34;
A4: Y is_greater_than "/\"(Y,C) by Th34;
    for d st Y is_greater_than d holds d [= "/\"(Y,C) by Th34;
    hence thesis by A1,A2,A3,A4;
  end;
  assume
A5: for X, a holds "/\"({a"\/"b: b in X}, C) [= a"\/""/\"(X,C);
  let X;
  let a,b,c;
  assume
  A6: X is_greater_than a & (for d st X is_greater_than d holds d [= a) &
  {b"\/"a9: a9 in X} is_greater_than c &
  for d st {b"\/"b9: b9 in X} is_greater_than d holds d [= c;
  then
A7: a = "/\"(X,C) by Th34;
  c = "/\"({b"\/"a9: a9 in X}, C) by A6,Th34;
  hence c [= b"\/"a by A5,A7;
end;
