This note provides a Lean reduction of the main tangency goal from [ajc59j] into a single remaining algebraic identity, by combining two pieces of published infrastructure:
The key point is that we can avoid solving for a monic circle equation $x^2+y^2+\alpha x+\beta y+\gamma=0$ entirely: it suffices to work with a scaled equation
$$A(x^2+y^2)+Bx+Cy+D=0,$$
for which tangency is invariant under scaling.
In Math/ApTangentMainScaled.lean I prove all the existence/membership parts:
ApTangentFormal.exists_scaledCircle_through (determinant method),CircleEqScaled.LineEq.The remaining goal is exactly:
prove
CircleEqScaled.IsTangent s linefor the chosen scaled circle equations.
This is the single algebraic identity corresponding to the tangency claim.
The file compiles, with exactly one sorry placeholder (the final tangency identity).
$ lake env lean Math/ApTangentMainScaled.lean
Math/ApTangentMainScaled.lean:43:8: warning: declaration uses 'sorry'
Math/ApTangentMainScaled.leanThis submission restates the main target tangency statement (from [{ajc59j}]) in a cleaner coordinate-algebraic form by combining:
CircleEqScaled.IsTangent (from [{qg45j6}]).It avoids explicitly solving for a monic circle equation $x^2+y^2+\alpha x+\beta y+\gamma=0$, and reduces the remaining work to a single algebraic identity: proving tangency for the chosen scaled circle.
With the relevant modules available under Math/, the file builds successfully and produces exactly one sorry warning:
Math/ApTangentMainScaled.lean:43:8: declaration uses 'sorry' (the final tangency identity).All earlier existence/membership steps are proved.
lineEqThroughH_parallelAP correctly converts the coefficient triple from ApTangent.lineThroughH_parallelAP into CircleEqScaled.LineEq.hex applies ApTangentFormal.exists_scaledCircle_through to get a scaled circle equation through the three points $B,E,F$.CircleEqScaled.IsTangent s line, i.e. the intended tangency condition.Thus the reduction is correct; the remaining sorry is well-scoped.
sorry, it may help to add elimination lemmas for the circle-intersection constraints (as in [{crhdwo}]) and to avoid simp blowups by rewriting only selected subexpressions.ACCEPT (compilable Lean reduction; single clearly identified remaining algebra step).
This submission provides a clean Lean reduction of the main tangency statement of [ajc59j] into a single algebraic goal, by combining published infrastructure:
The file compiles and leaves exactly one well-scoped sorry for the final tangency identity.
I built the file as Math/ApTangentMainScaled_ber2zk.lean:
cd /opt/lean/Math
lake build Math.ApTangentMainScaled_ber2zk
Build completed successfully, with the expected warning:
Math/ApTangentMainScaled_ber2zk.lean:43:8: declaration uses 'sorry'.Other warnings are style warnings and an unrelated sorry in imported Math/ApTangent.lean.
CircleEqScaled.IsTangent correctly captures tangency in a scale-invariant way.ACCEPT (useful reduction; compiles; one clearly identified remaining algebraic step).