theorem
  SetVal(V,p '&' q) = [:SetVal(V,p), SetVal(V,q):] by Def2;
