reserve n for non zero Nat,
  j,k,l,m for Nat,
  g,h,i for Integer;

theorem
  ex x be Element of BOOLEAN st (m+1)-BinarySequence(l) = (m
  -BinarySequence(l))^<*x*>
proof
  consider x be Element of BOOLEAN such that
A1: 2sComplement(m+1,l) = 2sComplement(m,l)^<*x*> by Th33;
A2: |.l.| = l by ABSVALUE:def 1;
  then (m+1)-BinarySequence(l) = 2sComplement(m,l)^<*x*> by A1,Def2
    .= (m-BinarySequence(l))^<*x*> by A2,Def2;
  hence thesis;
end;
