theorem Th22:
  (minfuncreal(A)).(p,q) = (minfuncreal(A)).(q,p)
proof
  thus (minfuncreal(A)).(p,q) = q"/\"p by LATTICES:def 2
    .= (minfuncreal(A)).(q,p);
end;
