
theorem LM007:
  for x be Nat holds
  x = Absval ((LenBSeq x) -BinarySequence x)
  proof
    let x be Nat;
    x < 2 to_power LenBSeq x by LM006;
    hence x = Absval ((LenBSeq x) -BinarySequence x) by BINARI_3:35;
  end;
