theorem Th38:
  (i1 ';' i2 ';' i3 ';' i4 ';' K).0 = i1
 proof
  LastLoc(i1 ';' i2 ';' i3 ';' i4) = 4 by Th32;
  hence (i1 ';' i2 ';' i3 ';' i4 ';' K).0
         = (i1 ';' i2 ';' i3 ';' i4).0 by Th23,Th28
        .= (i1 ';' i2 ';' i3 ';' Macro i4).0
        .= i1 by Th37;
 end;
