Theorem elplngid

Description: The point R is itself an element of a plane defined by a line A and the point R . (Contributed by Thierry Arnoux, 17-Jun-2026)

	Ref	Expression
Hypotheses	plngval.p	⊢ 𝑃 = ( Base ‘ 𝐺 )
	plngval.i	⊢ 𝐼 = ( Itv ‘ 𝐺 )
	plngval.1	⊢ 𝐿 = ( LineG ‘ 𝐺 )
	plngval.e	⊢ 𝐸 = ( hlG ‘ 𝐺 )
	plngval.g	⊢ ( 𝜑 → 𝐺 ∈ TarskiG )
	elplng.a	⊢ ( 𝜑 → 𝐴 ∈ ran 𝐿 )
	elplng.r	⊢ ( 𝜑 → 𝑅 ∈ ( 𝑃 ∖ 𝐴 ) )
Assertion	elplngid	⊢ ( 𝜑 → 𝑅 ∈ ( 𝐴 𝐸 𝑅 ) )

Proof

Step	Hyp	Ref	Expression
1		plngval.p	⊢ 𝑃 = ( Base ‘ 𝐺 )
2		plngval.i	⊢ 𝐼 = ( Itv ‘ 𝐺 )
3		plngval.1	⊢ 𝐿 = ( LineG ‘ 𝐺 )
4		plngval.e	⊢ 𝐸 = ( hlG ‘ 𝐺 )
5		plngval.g	⊢ ( 𝜑 → 𝐺 ∈ TarskiG )
6		elplng.a	⊢ ( 𝜑 → 𝐴 ∈ ran 𝐿 )
7		elplng.r	⊢ ( 𝜑 → 𝑅 ∈ ( 𝑃 ∖ 𝐴 ) )
8	7	eldifad	⊢ ( 𝜑 → 𝑅 ∈ 𝑃 )
9		eleq1w	⊢ ( 𝑎 = 𝑐 → ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ↔ 𝑐 ∈ ( 𝑃 ∖ 𝐴 ) ) )
10		eleq1w	⊢ ( 𝑏 = 𝑑 → ( 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ↔ 𝑑 ∈ ( 𝑃 ∖ 𝐴 ) ) )
11	9 10	bi2anan9	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ↔ ( 𝑐 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑑 ∈ ( 𝑃 ∖ 𝐴 ) ) ) )
12		eleq1w	⊢ ( 𝑡 = 𝑠 → ( 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ↔ 𝑠 ∈ ( 𝑎 𝐼 𝑏 ) ) )
13	12	cbvrexvw	⊢ ( ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ↔ ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑎 𝐼 𝑏 ) )
14		oveq12	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( 𝑎 𝐼 𝑏 ) = ( 𝑐 𝐼 𝑑 ) )
15	14	eleq2d	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( 𝑠 ∈ ( 𝑎 𝐼 𝑏 ) ↔ 𝑠 ∈ ( 𝑐 𝐼 𝑑 ) ) )
16	15	rexbidv	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑎 𝐼 𝑏 ) ↔ ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑐 𝐼 𝑑 ) ) )
17	13 16	bitrid	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ↔ ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑐 𝐼 𝑑 ) ) )
18	11 17	anbi12d	⊢ ( ( 𝑎 = 𝑐 ∧ 𝑏 = 𝑑 ) → ( ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) ↔ ( ( 𝑐 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑑 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑐 𝐼 𝑑 ) ) ) )
19	18	cbvopabv	⊢ { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) } = { ⟨ 𝑐 , 𝑑 ⟩ ∣ ( ( 𝑐 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑑 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑠 ∈ 𝐴 𝑠 ∈ ( 𝑐 𝐼 𝑑 ) ) }
20	7	eldifbd	⊢ ( 𝜑 → ¬ 𝑅 ∈ 𝐴 )
21	1 2 3 5 6 8 19 20	hpgid	⊢ ( 𝜑 → 𝑅 ( ( hpG ‘ 𝐺 ) ‘ 𝐴 ) 𝑅 )
22	21	3mix2d	⊢ ( 𝜑 → ( 𝑅 ∈ 𝐴 ∨ 𝑅 ( ( hpG ‘ 𝐺 ) ‘ 𝐴 ) 𝑅 ∨ 𝑅 { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) } 𝑅 ) )
23		eqid	⊢ { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) } = { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) }
24	1 2 3 4 5 6 7 23 8	elplng	⊢ ( 𝜑 → ( 𝑅 ∈ ( 𝐴 𝐸 𝑅 ) ↔ ( 𝑅 ∈ 𝐴 ∨ 𝑅 ( ( hpG ‘ 𝐺 ) ‘ 𝐴 ) 𝑅 ∨ 𝑅 { ⟨ 𝑎 , 𝑏 ⟩ ∣ ( ( 𝑎 ∈ ( 𝑃 ∖ 𝐴 ) ∧ 𝑏 ∈ ( 𝑃 ∖ 𝐴 ) ) ∧ ∃ 𝑡 ∈ 𝐴 𝑡 ∈ ( 𝑎 𝐼 𝑏 ) ) } 𝑅 ) ) )
25	22 24	mpbird	⊢ ( 𝜑 → 𝑅 ∈ ( 𝐴 𝐸 𝑅 ) )