theorem Th8: for i be Nat st i in dom f holds (nega f)/.i = 'not' (f/.i)
  proof
    let i be Nat;
    reconsider i1 = i as Element of NAT by ORDINAL1:def 12;
    assume
A1: i in dom f;
    then A2: 1 <= i by FINSEQ_3:25;
A3: i <= len f by A1,FINSEQ_3:25;
    then i <= len nega f by Def4;
    hence (nega f)/.i = (nega f).i1 by A2,FINSEQ_4:15
    .= 'not' (f/.i) by Def4,A2,A3;
  end;
