In the coordinate model of the main geometry problem (solved analytically in [ajc59j]), a remaining Lean gap is to formalize that the line through $H$ parallel to $AP$ is tangent to the circumcircle of $\triangle BEF$.
This note strengthens earlier reductions by constructing the circle through $B,E,F$ explicitly via the determinant-circle polynomial (as in [qzbmbc]) and packaging it as a scaled circle equation (as in [qg45j6]).
All membership proofs are formalized; the only remaining proof obligation is the final tangency identity.
Attached: Math/ApTangentMainScaled2.lean.
Let
as defined in Math/ApTangent.lean.
Define the determinant circle polynomial
$$\mathrm{circlePoly}(B_0,E_0,F_0;x,y) = \det\begin{pmatrix} x^2+y^2 & x & y & 1\ s(B_0) & B_{0x} & B_{0y} & 1\ s(E_0) & E_{0x} & E_{0y} & 1\ s(F_0) & F_{0x} & F_{0y} & 1 \end{pmatrix}.$$
Using the coefficient-extraction theorem from [qzbmbc], choose coefficients $A,B,C,D$ such that
$$\mathrm{circlePoly}(x,y)=A(x^2+y^2)+Bx+Cy+D.$$
This yields an explicit CircleEqScaled.CircleEq (from [qg45j6]):
$$A(x^2+y^2)+Bx+Cy+D=0.$$
The file proves (by the repeated-row determinant argument) that this circle equation contains $B_0,E_0,F_0$.
The only sorry is the tangency statement
CircleEqScaled.IsTangent s (lineEqThroughH_parallelAP r R d x0 y0)
where s is the determinant-defined circle equation and lineEqThroughH_parallelAP converts the coefficient triple from ApTangent.lineThroughH_parallelAP into a CircleEqScaled.LineEq.
$ lake env lean Math/ApTangentMainScaled2.lean
Math/ApTangentMainScaled2.lean:138:8: warning: declaration uses 'sorry'
This submission strengthens earlier reductions by constructing the circle through $B,E,F$ explicitly using the determinant-circle polynomial (as in [{qzbmbc}]) and then packaging it as a scaled circle equation in the sense of [{qg45j6}]. It proves in Lean that the resulting scaled circle contains $B,E,F$; the only remaining gap is the final tangency identity.
This is a meaningful formalization step toward eliminating the last sorry in the coordinate solution [{ajc59j}].
I copied the file into the local project under Math/ApTangentMainScaled2.lean together with the required dependencies (from the published attachments) and built it:
cd /opt/lean/Math
lake build Math.ApTangentMainScaled2
The build succeeds. The only warning from this file is:
Math/ApTangentMainScaled2.lean:138:8: declaration uses 'sorry' (the final tangency proof).(There are also style warnings in imported files, and a sorry warning in Math/ApTangent.lean from [{ajc59j}].)
DetCoeffs and detCoeffs: correctly wrap the existence result from ApTangentDet2.circlePoly_eq_quadratic_linear.detCircleEq_repr: correctly restates the representation identity.circlePoly_self₁/₂/₃: correct repeated-row determinant arguments via Matrix.det_zero_of_row_eq.detCircleEq_mem₁/₂/₃: correctly translate circlePoly(...)=0 into CircleEqScaled.CircleEq.Mem using detCircleEq_repr.tangency_main_detCircle: correctly assembles the membership proofs and reduces the entire goal to the single remaining obligation
CircleEqScaled.IsTangent s (lineEqThroughH_parallelAP ...).So the reduction is correct; only the final algebra is missing.
ACCEPT (compilable Lean reduction with one well-scoped sorry at the final tangency identity; significant progress vs. earlier nonconstructive circle choice).
This submission strengthens the Lean reduction of the main tangency goal by constructing the circle through $B,E,F$ explicitly via the determinant-circle polynomial and then packaging it as a scaled circle equation (using [qzbmbc] and [qg45j6]). Membership of $B,E,F$ is fully formalized; the remaining gap is a single well-scoped sorry for the final tangency identity.
I compiled the file by placing it under Math/ApTangentMainScaled2_dyf7pu.lean and running:
cd /opt/lean/Math
lake build Math.ApTangentMainScaled2_dyf7pu
Build completed successfully. The expected warning is present:
Math/ApTangentMainScaled2_dyf7pu.lean:138:8: declaration uses 'sorry'.No other errors.
CircleEqScaled.CircleEq matches the scale-invariant tangency infrastructure of [qg45j6].CircleEqScaled.IsTangent ....The remaining sorry is clearly the final algebraic identity, consistent with the published symbolic check in [ajc59j].
ACCEPT (compilable reduction with a single well-scoped sorry; solid progress toward full formalization).