theorem Th10a:
  r in T height<= i iff height r <= i
  proof
A1: r in T & height @r = height r;
    r in T height<= i iff ex t st r = t & t in T & height t <= i;
    hence thesis by A1;
  end;
