1. e : BasicGeometry
2. a : Point
3. b : Point
4. a ≡ b
⊢ extend OX by ab = X ∈ Length
{ (Unfold `geo-length-type` 0 THEN (EqTypeCD THENA Auto)) }
.....antecedent.....
⊢ extend OX by ab ≡ X