reserve i,j,k,l for natural Number;
reserve A for set, a,b,x,x1,x2,x3 for object;
reserve D,D9,E for non empty set;
reserve d,d1,d2,d3 for Element of D;
reserve d9,d19,d29,d39 for Element of D9;
reserve p,q,r for FinSequence;
reserve s for Element of D*;

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;
