theorem
  decode.(x".v1)=v1 & (decode").v1= x".v1 & (f*decode).(x".v1)=f.v1 by Lm4;
