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