theorem Th37:
  (i ';' j ';' k ';' K).0 = i
 proof
  LastLoc(i ';' j ';' k) = 3 by Th31;
  hence (i ';' j ';' k ';' K).0 = (i ';' j ';' k).0 by Th23,Th28
        .= (i ';' j ';'  Macro k).0
        .= i by Th36;
 end;
