theorem Th94:
  1-tuples_on D = the set of all  <*d*>
proof
  now
    let x be object;
    thus x in 1-tuples_on D implies x in the set of all  <*d*>
    proof
      assume x in 1-tuples_on D;
      then consider s such that
A1:   x = s and
A2:   len s = 1;
      1 in Seg 1;
      then 1 in dom s by A2,FINSEQ_1:def 3;
      then reconsider d1 = s.1 as Element of D by Th9;
      s = <*d1*> by A2,FINSEQ_1:40;
      hence thesis by A1;
    end;
    assume x in the set of all  <*d*>;
    then consider d such that
A3: x = <*d*>;
    len <*d*> = 1 & <*d*> is Element of D* by FINSEQ_1:40,def 11;
    hence x in 1-tuples_on D by A3;
  end;
  hence thesis by TARSKI:2;
end;
