
theorem
  Nat2BL.4 = <*0,0,1*>
  proof
    LenBSeq 4 = [\ log(2,4) /] +1 by EXL2
    .= [\ 2 /] +1 by POWER:def 3,POWER:60
    .= 2+1
    .= 3; then
    Nat2BL.4 = 3 -BinarySequence 4 by BINARI_6:def 2
    .= 0*2 ^<*1*> by BINARI_3:28,POWER:60
    .= <*0,0,1*> by BINARI_6:5,BINARI_6:4;
    hence thesis;
  end;
