theorem Th43:
  for x being Variable of f for t being INT-Expression of A,f
  holds f.(s, x%=t).x = s.x mod t.s & for z st z <> x holds f.(s, x%=t).z = s.z
proof
  let x be Variable of f;
  let t be INT-Expression of A,f;
A1: (^x).s = x;
A2: (.x).s = s.x by Th22;
  (.x mod t).s = (.x).s mod t.s by Def30;
  hence thesis by A1,A2,Th24;
end;
