Theorem brprlng 29062

Description: Property of two lines 𝐴 and 𝐵 to be parallel. (Contributed by Thierry Arnoux, 18-Jun-2026.)

Hypotheses

Ref	Expression
brprlng.l	⊢ 𝐿 = (LineG‘𝐺)
brprlng.e	⊢ 𝐸 = (hlG‘𝐺)
brprlng.p	⊢ ∥ = (parlnG‘𝐺)
brprlng.g	⊢ (𝜑 → 𝐺 ∈ 𝑉)

Assertion

Ref	Expression
brprlng	⊢ (𝜑 → (𝐴 ∥ 𝐵 ↔ ((𝐴 ∈ ran 𝐿 ∧ 𝐵 ∈ ran 𝐿) ∧ (𝐴 = 𝐵 ∨ (∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ) ∧ (𝐴 ∩ 𝐵) = ∅)))))

Distinct variable groups:   𝐴,ℎ   𝐵,ℎ   ℎ,𝐸   ℎ,𝐺

Allowed substitution hints:   𝜑(ℎ)   ∥ (ℎ)   𝐿(ℎ)   𝑉(ℎ)

Proof of Theorem brprlng

Dummy variables 𝑎 𝑏 𝑔 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		brprlng.p	. . 3 ⊢ ∥ = (parlnG‘𝐺)
2		df-prlng 29061	. . . 4 ⊢ parlnG = (𝑔 ∈ V ↦ {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran (LineG‘𝑔) ∧ 𝑏 ∈ ran (LineG‘𝑔)) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))})
3		fveq2 6867	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (LineG‘𝑔) = (LineG‘𝐺))
4		brprlng.l	. . . . . . . . . 10 ⊢ 𝐿 = (LineG‘𝐺)
5	3, 4	eqtr4di 2815	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → (LineG‘𝑔) = 𝐿)
6	5	rneqd 5914	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → ran (LineG‘𝑔) = ran 𝐿)
7	6	eleq2d 2848	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (𝑎 ∈ ran (LineG‘𝑔) ↔ 𝑎 ∈ ran 𝐿))
8	6	eleq2d 2848	. . . . . . 7 ⊢ (𝑔 = 𝐺 → (𝑏 ∈ ran (LineG‘𝑔) ↔ 𝑏 ∈ ran 𝐿))
9	7, 8	anbi12d 641	. . . . . 6 ⊢ (𝑔 = 𝐺 → ((𝑎 ∈ ran (LineG‘𝑔) ∧ 𝑏 ∈ ran (LineG‘𝑔)) ↔ (𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿)))
10		fveq2 6867	. . . . . . . . . . 11 ⊢ (𝑔 = 𝐺 → (hlG‘𝑔) = (hlG‘𝐺))
11		brprlng.e	. . . . . . . . . . 11 ⊢ 𝐸 = (hlG‘𝐺)
12	10, 11	eqtr4di 2815	. . . . . . . . . 10 ⊢ (𝑔 = 𝐺 → (hlG‘𝑔) = 𝐸)
13	12	rneqd 5914	. . . . . . . . 9 ⊢ (𝑔 = 𝐺 → ran (hlG‘𝑔) = ran 𝐸)
14	13	rexeqdv 3321	. . . . . . . 8 ⊢ (𝑔 = 𝐺 → (∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ↔ ∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ)))
15	14	anbi1d 640	. . . . . . 7 ⊢ (𝑔 = 𝐺 → ((∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅) ↔ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))
16	15	orbi2d 926	. . . . . 6 ⊢ (𝑔 = 𝐺 → ((𝑎 = 𝑏 ∨ (∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)) ↔ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅))))
17	9, 16	anbi12d 641	. . . . 5 ⊢ (𝑔 = 𝐺 → (((𝑎 ∈ ran (LineG‘𝑔) ∧ 𝑏 ∈ ran (LineG‘𝑔)) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅))) ↔ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))))
18	17	opabbidv 5166	. . . 4 ⊢ (𝑔 = 𝐺 → {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran (LineG‘𝑔) ∧ 𝑏 ∈ ran (LineG‘𝑔)) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran (hlG‘𝑔)(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))} = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))})
19		brprlng.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ 𝑉)
20	19	elexd 3477	. . . 4 ⊢ (𝜑 → 𝐺 ∈ V)
21	4	fvexi 6881	. . . . . . 7 ⊢ 𝐿 ∈ V
22	21	rnex 7891	. . . . . 6 ⊢ ran 𝐿 ∈ V
23	22	a1i 11	. . . . 5 ⊢ (𝜑 → ran 𝐿 ∈ V)
24		simprll 788	. . . . 5 ⊢ ((𝜑 ∧ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))) → 𝑎 ∈ ran 𝐿)
25		simprlr 789	. . . . 5 ⊢ ((𝜑 ∧ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))) → 𝑏 ∈ ran 𝐿)
26	23, 23, 24, 25	opabex2 8038	. . . 4 ⊢ (𝜑 → {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))} ∈ V)
27	2, 18, 20, 26	fvmptd3 6999	. . 3 ⊢ (𝜑 → (parlnG‘𝐺) = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))})
28	1, 27	eqtrid 2809	. 2 ⊢ (𝜑 → ∥ = {⟨𝑎, 𝑏⟩ ∣ ((𝑎 ∈ ran 𝐿 ∧ 𝑏 ∈ ran 𝐿) ∧ (𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)))})
29		eqeq12 2779	. . . 4 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → (𝑎 = 𝑏 ↔ 𝐴 = 𝐵))
30		sseq1 3961	. . . . . . 7 ⊢ (𝑎 = 𝐴 → (𝑎 ⊆ ℎ ↔ 𝐴 ⊆ ℎ))
31		sseq1 3961	. . . . . . 7 ⊢ (𝑏 = 𝐵 → (𝑏 ⊆ ℎ ↔ 𝐵 ⊆ ℎ))
32	30, 31	bi2anan9 647	. . . . . 6 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → ((𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ↔ (𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ)))
33	32	rexbidv 3186	. . . . 5 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ↔ ∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ)))
34		ineq12 4167	. . . . . 6 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → (𝑎 ∩ 𝑏) = (𝐴 ∩ 𝐵))
35	34	eqeq1d 2764	. . . . 5 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → ((𝑎 ∩ 𝑏) = ∅ ↔ (𝐴 ∩ 𝐵) = ∅))
36	33, 35	anbi12d 641	. . . 4 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → ((∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅) ↔ (∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ) ∧ (𝐴 ∩ 𝐵) = ∅)))
37	29, 36	orbi12d 929	. . 3 ⊢ ((𝑎 = 𝐴 ∧ 𝑏 = 𝐵) → ((𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)) ↔ (𝐴 = 𝐵 ∨ (∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ) ∧ (𝐴 ∩ 𝐵) = ∅))))
38	37	adantl 485	. 2 ⊢ ((𝜑 ∧ (𝑎 = 𝐴 ∧ 𝑏 = 𝐵)) → ((𝑎 = 𝑏 ∨ (∃ℎ ∈ ran 𝐸(𝑎 ⊆ ℎ ∧ 𝑏 ⊆ ℎ) ∧ (𝑎 ∩ 𝑏) = ∅)) ↔ (𝐴 = 𝐵 ∨ (∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ) ∧ (𝐴 ∩ 𝐵) = ∅))))
39	28, 38	brab2d 5508	1 ⊢ (𝜑 → (𝐴 ∥ 𝐵 ↔ ((𝐴 ∈ ran 𝐿 ∧ 𝐵 ∈ ran 𝐿) ∧ (𝐴 = 𝐵 ∨ (∃ℎ ∈ ran 𝐸(𝐴 ⊆ ℎ ∧ 𝐵 ⊆ ℎ) ∧ (𝐴 ∩ 𝐵) = ∅)))))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   ∨ wo 858   = wceq 1560   ∈ wcel 2142  ∃wrex 3086  Vcvv 3454   ∩ cin 3903   ⊆ wss 3904  ∅c0 4285   class class class wbr 5100  {copab 5162  ran crn 5648  ‘cfv 6521  LineGclng 28600  hlGcplng 28977  parlnGcprlng 29060

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3077  df-rex 3087  df-rab 3415  df-v 3456  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-iota 6477  df-fun 6523  df-fv 6529  df-prlng 29061

This theorem is referenced by:  prlngd  29063  prlngref  29064  prlngsym  29065