theorem
  l + (k,S) -' (k,S) = l
proof
  thus l + (k,S) -' (k,S) = il.(S,locnum(l,S) + k -' k) by Def5
    .= il.(S,locnum(l,S)) by NAT_D:34
    .= l by Def5;
end;
