
theorem Hartr 3 = <*1/3,1/6,1/3*>
  proof
    reconsider f = Hartr 3 as 3-element complex-valued FinSequence;
    reconsider g = RHartr 3 as 3-element complex-valued FinSequence;
    len f = 3 & len g = 3 by CARD_1:def 7; then
    dom f = Seg 3 & dom g = Seg 3 by FINSEQ_1:def 3; then
    1 in dom f & 2 in dom f & 3 in dom f; then
    f.1 = (g.1)" & f.2 = (g.2)" & f.3 = (g.3)" by VALUED_1:def 7;
    hence thesis by RH3;
  end;
