
theorem Th10:
  Bin1 1 = <*TRUE*>
proof
  1 in Seg 1 by FINSEQ_1:3;
  then
A1: (Bin1 1)/.1 = TRUE by BINARI_2:5;
  ex d be Element of BOOLEAN st Bin1 1 = <*d*> by FINSEQ_2:97;
  hence thesis by A1,FINSEQ_4:16;
end;
