now

let i be Nat; :: thesis: ( i in Seg 1 implies ('not' <*TRUE *>) . i = <*FALSE *> . i )
assume A1: i in Seg 1 ; :: thesis: ('not' <*TRUE *>) . i = <*FALSE *> . i
then A2: i = 1 by FINSEQ_1:4, TARSKI:def 1;
len <*TRUE *> = 1 by FINSEQ_1:def 18;
then A3: <*TRUE *> /. i = <*TRUE *> . 1 by A2, FINSEQ_4:24;
len ('not' <*TRUE *>) = 1 by FINSEQ_1:def 18;
hence ('not' <*TRUE *>) . i = ('not' <*TRUE *>) /. i by A2, FINSEQ_4:24
.= 'not' (<*TRUE *> /. i) by A1, BINARITH:def 4
.= 'not' TRUE by A3, FINSEQ_1:57
.= <*FALSE *> . i by A2, FINSEQ_1:57 ;
:: thesis: verum

end;

hence 'not' <*TRUE *> = <*FALSE *> by FINSEQ_2:139; :: thesis: verum