reserve F for Field,
  x for Element of F,
  V for VectSp of F,
  v for Element of V;

theorem Th22:
  1.F_Real + 1.F_Real <> 0.F_Real;
