theorem
 for S being COM-Struct
 for p being finite NAT-defined (the InstructionsF of S)-valued Function,
     m,n be Nat
 holds Reloc(Reloc(p,m), n) = Reloc(p, m + n)
proof
 let S being COM-Struct;
 let p being finite NAT-defined (the InstructionsF of S)-valued Function,
     m,n be Nat;
  thus Reloc(Reloc(p,m),n)
     = Shift(Shift(IncAddr(IncAddr(p,m),n),m),n) by Th22
    .= Shift(Shift(IncAddr(p, m + n),m),n) by Th8
    .= Reloc(p, m + n) by VALUED_1:21;
end;
