theorem
  dom d c= dom((d,c)<-d1) by TREES_4:def 7;
