theorem
  adjs (A ast q) = A & the_base_of (A ast q) = q;
