Section Grid.
Variable O E E' : Tpoint.
Variable grid_ok : ~ Col O E E'.
End Grid.
(** We omit lemma 14.26 which states that we have a division ring. *)
(** Lemma 14.28 is something like exists f, prod O E X A B C -> prod O' E' f(X) f(A') f(B') f(C') ? *)
(** Lemma 14.29 *)
(** From Pappus-Pascal we can derive that the product is symmetric, hence we have a field. *)
(* already done : prod_comm *)

Lemma distr_l_diff : forall O E E' A B C BMC AB AC ABMC,
Diff O E E' B C BMC -> Prod O E E' A B AB ->
Prod O E E' A C AC -> Prod O E E' A BMC ABMC ->
Diff O E E' AB AC ABMC.