sclass PairComparedByA<A, B> extends Pair<A, B> {
  *() {}
  *(A *a, B *b) {}
  
  public bool equals(O o) {
    ret o instanceof Pair && eq(a, o/Pair.a);
  }
  
  public int compareTo(Pair<A, B> p) {
    ret stdcmp(a, p.a);
  }
}