theorem
EuclidGeom.Shan_Problem_1_9.Shan_Problem_1_9
{P : Type u_1}
[EuclidGeom.EuclideanPlane P]
{A : P}
{B : P}
{C : P}
{D : P}
{E : P}
:
theorem
EuclidGeom.Shan_Problem_1_10.Shan_Problem_1_10
{P : Type u_1}
[EuclidGeom.EuclideanPlane P]
{A : P}
{B : P}
{C : P}
{E : P}
{he₁ : EuclidGeom.lies_int E (EuclidGeom.SegND.extension (SEG_nd A C (_ : C ≠ A)))}
{he₂ : { source := A, target := E }.length = { source := B, target := C }.length}
{D : P}
:
{ source := A, target := D }.length = { source := D, target := C }.length