Instance incident_Proper (A:Tpoint) :
Proper (EqL ==>iff) (IncidentL A).

(* Specifications: *)
Lemma axiom_Incid_dec : forall P l, IncidentL P l \/ ~IncidentL P l.
(** There is only one line going through two points. *)
Lemma axiom_line_uniqueness : forall A B l m, A <> B ->
IncidentL A l -> IncidentL B l -> IncidentL A m -> IncidentL B m ->
l =l= m.