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

(* Specifications: *)
Lemma axiom_Incid_morphism : forall P l m, IncidentL P l -> EqL l m -> IncidentL P m.
Lemma axiom_Incid_dec : forall P l, IncidentL P l \/ ~IncidentL P l.
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.
Lemma axiom_two_points_on_line : forall l, { A : Tpoint & { B | IncidentL B l /\ IncidentL A l /\ A <> B}}.