 reserve W for WA-Lattice;
 reserve a,b,c for Element of W;
 reserve W for pcs-Compatible pcs-tol-reflexive pcs-tol-symmetric WAP-Lattice;
 reserve a,b for Element of W;

theorem
  for a, b being Element of W holds
    a (--) b & a (--) a implies (a "/\" b) (--) a
  proof
    let a, b be Element of W;
    assume a (--) b & a (--) a; then
    (a "/\" b) (--) (a "/\" a) by CompDef;
    hence thesis by LemmaId;
  end;
