
theorem EXL1:
  LenBSeq 1 = 1
  proof
X1: 2 to_power 0 <= 1 by POWER:24;
    1 < 2 to_power (0 + 1);
    hence thesis by BINARI_6:def 1,X1;
  end;
