
theorem T0:
for F being Field st Char F <> 2 holds
F is formally_real iff QS F is prepositive_cone
proof
let F be Field;
assume AS: Char F <> 2;
hereby assume F is formally_real;
   then QS F is negative-disjoint by lemma1;
   hence QS F is prepositive_cone;
   end;
assume QS F is prepositive_cone;
   then F is preordered;
   hence F is formally_real by AS,lemma3,lemma2;
end;
