theorem
  p,q are_equivalence_wrt F iff [p,q] in equivalence_wrt F
by Def11;
