theorem
  for p being QC-formula of A st p is negative holds Bound_Vars(p) =
  Bound_Vars(the_argument_of p) by Lm1;
