Formalizing projective geometry in Coq
Nicolas Magaud Julien Narboux Pascal Schreck
Universit´ e de Strasbourg, France
GDR LTP, 21 Octobre 2009, Universit´ e Paris XII
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 1 / 23
Formalizing projective geometry in Coq Nicolas Magaud Julien - - PowerPoint PPT Presentation
Formalizing projective geometry in Coq Nicolas Magaud Julien Narboux Pascal Schreck Universit e de Strasbourg, France GDR LTP, 21 Octobre 2009, Universit e Paris XII Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 1 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 2 / 23
1
2
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 3 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 4 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 5 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 6 / 23
b
b
b C b
bI b J
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 7 / 23
bC b b
b
b P
b P1 b P2
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 8 / 23
duality
3 back
forth
Module swap (M’: ProjectivePlane’) <: ProjectivePlane’. Definition Point := M’.Line. Definition Line := M’.Point. Definition Incid := fun (x:Point) (y:Line) => M’.Incid y x. [...] Definition a1_exist := M’.a2_exist. Definition a2_exist := M’.a1_exist. [...]
Lemma outsider : forall l1 l2: Line, { P:Point | ~Incid P l1/\~Incid P l2}.
Lemma dual_example : forall P1 P2 : Point,{l : Line | ~ Incid P1 l /\ ~ Incid P2 l}.
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 9 / 23
b
b
b b
b E b
b
bG
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 10 / 23
b
b
b
b O b
b
b
b b b
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 11 / 23
b b b b b b b b b b
b b b b b b b b b b
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 12 / 23
b
b
b
b
b
b
b P b Q b R
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 13 / 23
b
b
b
b O b
b
b
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
b
b
b
b O b
b
b
b
b o b c b
b b
b b bMagaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 14 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 15 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 16 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 17 / 23
1 general lemmas (framework) 2 proof of the 3D statement 3 proof of the 2D statement by projection Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 18 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 19 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 19 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 19 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 20 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 21 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 22 / 23
Magaud Schreck Narboux (UdS) Formalizing projective geometry GDR LTP 23 / 23