colecaoblablabla

No *rot_dir(ArvoreVP *arvore, No *no) {
  No *aux = no->fesq;
  no->fesq = aux->fdir;
  aux->fdir->pai = no;
  aux->pai = no->pai;
  if (no->pai == arvore->nil){
    arvore->raiz = aux;
  }else{ //verifica se no não é a raiz
    if (no->pai->fesq == no)
      no->pai->fesq = aux;
    else
      no->pai->fdir = aux;
  }
  aux->fdir = no;
  no->pai = aux;
  return(aux);
}
No *rot_esq(ArvoreVP *arvore, No *no) {
  No *aux = no->fdir;
  no->fdir = aux->fesq;
  aux->fesq->pai = no;
  aux->pai = no->pai;
  if (no->pai == arvore->nil){
    arvore->raiz = aux;
  }else{ //verifica se no não é a raiz
    if (no->pai->fesq == no)
      no->pai->fesq = aux;
    else
      no->pai->fdir = aux;
  }
  aux->fesq = no;
  no->pai = aux;
  return(aux);
}