theorem
  ex d1,d2,d3 st A = <* <* d1,d2,d3 *> *>
  proof
    A = <* <* A*(1,1), A*(1,2), A*(1,3) *> *> by Th26;
    hence thesis;
  end;
