Theorem constrlccl

Description: Constructible numbers are closed under line-circle intersections. (Contributed by Thierry Arnoux, 2-Nov-2025)

	Ref	Expression
Hypotheses	constrlccl.a	|- ( ph -> A e. Constr )
	constrlccl.b	|- ( ph -> B e. Constr )
	constrlccl.c	|- ( ph -> G e. Constr )
	constrlccl.e	|- ( ph -> E e. Constr )
	constrlccl.f	|- ( ph -> F e. Constr )
	constrlccl.t	|- ( ph -> T e. RR )
	constrlccl.x	|- ( ph -> X e. CC )
	constrlccl.1	|- ( ph -> X = ( A + ( T x. ( B - A ) ) ) )
	constrlccl.2	|- ( ph -> ( abs ` ( X - G ) ) = ( abs ` ( E - F ) ) )
Assertion	constrlccl	|- ( ph -> X e. Constr )

Proof

Step	Hyp	Ref	Expression
1		constrlccl.a	|- ( ph -> A e. Constr )
2		constrlccl.b	|- ( ph -> B e. Constr )
3		constrlccl.c	|- ( ph -> G e. Constr )
4		constrlccl.e	|- ( ph -> E e. Constr )
5		constrlccl.f	|- ( ph -> F e. Constr )
6		constrlccl.t	|- ( ph -> T e. RR )
7		constrlccl.x	|- ( ph -> X e. CC )
8		constrlccl.1	|- ( ph -> X = ( A + ( T x. ( B - A ) ) ) )
9		constrlccl.2	|- ( ph -> ( abs ` ( X - G ) ) = ( abs ` ( E - F ) ) )
10		constrcbvlem	|- rec ( ( z e. _V |-> { y e. CC | ( E. i e. z E. j e. z E. k e. z E. l e. z E. o e. RR E. p e. RR ( y = ( i + ( o x. ( j - i ) ) ) /\ y = ( k + ( p x. ( l - k ) ) ) /\ ( Im ` ( ( * ` ( j - i ) ) x. ( l - k ) ) ) =/= 0 ) \/ E. i e. z E. j e. z E. k e. z E. m e. z E. q e. z E. o e. RR ( y = ( i + ( o x. ( j - i ) ) ) /\ ( abs ` ( y - k ) ) = ( abs ` ( m - q ) ) ) \/ E. i e. z E. j e. z E. k e. z E. l e. z E. m e. z E. q e. z ( i =/= l /\ ( abs ` ( y - i ) ) = ( abs ` ( j - k ) ) /\ ( abs ` ( y - l ) ) = ( abs ` ( m - q ) ) ) ) } ) , { 0 , 1 } ) = rec ( ( s e. _V |-> { x e. CC | ( E. a e. s E. b e. s E. c e. s E. d e. s E. t e. RR E. r e. RR ( x = ( a + ( t x. ( b - a ) ) ) /\ x = ( c + ( r x. ( d - c ) ) ) /\ ( Im ` ( ( * ` ( b - a ) ) x. ( d - c ) ) ) =/= 0 ) \/ E. a e. s E. b e. s E. c e. s E. e e. s E. f e. s E. t e. RR ( x = ( a + ( t x. ( b - a ) ) ) /\ ( abs ` ( x - c ) ) = ( abs ` ( e - f ) ) ) \/ E. a e. s E. b e. s E. c e. s E. d e. s E. e e. s E. f e. s ( a =/= d /\ ( abs ` ( x - a ) ) = ( abs ` ( b - c ) ) /\ ( abs ` ( x - d ) ) = ( abs ` ( e - f ) ) ) ) } ) , { 0 , 1 } )
11	10 1 2 3 4 5 6 7 8 9	constrlccllem	|- ( ph -> X e. Constr )