theorem Th20:
  for D being set
  for d being Element of D holds Seg 1 --> d = <* d *>
  proof
    let D be set;
    let d be Element of D;
    Seg 1 --> d = 1 |-> d
               .= <* d *> by FINSEQ_2:59;
    hence thesis;
  end;
