reserve x,y for Real;
reserve a,b,c for Element of Real_Lattice;
reserve p,q,r for Element of Real_Lattice;
reserve A,B for non empty set;
reserve f,g,h for Element of Funcs(A,REAL);
reserve L for non empty LattStr,
        p,q,r for Element of L;
reserve p,q,r for Element of RealFunc_Lattice(A);

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;
