Theorem bropfvvvvlem 8080

Description: Lemma for bropfvvvv 8081. (Contributed by AV, 31-Dec-2020.) (Revised by AV, 16-Jan-2021.)

Hypotheses

Ref	Expression
bropfvvvv.o	⊢ 𝑂 = (𝑎 ∈ 𝑈 ↦ (𝑏 ∈ 𝑉, 𝑐 ∈ 𝑊 ↦ {⟨𝑑, 𝑒⟩ ∣ 𝜑}))
bropfvvvv.oo	⊢ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐵(𝑂‘𝐴)𝐶) = {⟨𝑑, 𝑒⟩ ∣ 𝜃})

Assertion

Ref	Expression
bropfvvvvlem	⊢ ((⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) ∧ 𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸) → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))

Distinct variable group:   𝑈,𝑎

Allowed substitution hints:   𝜑(𝑒,𝑎,𝑏,𝑐,𝑑)   𝜃(𝑒,𝑎,𝑏,𝑐,𝑑)   𝐴(𝑒,𝑎,𝑏,𝑐,𝑑)   𝐵(𝑒,𝑎,𝑏,𝑐,𝑑)   𝐶(𝑒,𝑎,𝑏,𝑐,𝑑)   𝐷(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑆(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑇(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑈(𝑒,𝑏,𝑐,𝑑)   𝐸(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑂(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑉(𝑒,𝑎,𝑏,𝑐,𝑑)   𝑊(𝑒,𝑎,𝑏,𝑐,𝑑)

Proof of Theorem bropfvvvvlem

Step	Hyp	Ref	Expression
1		opelxp 5713	. . 3 ⊢ (⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) ↔ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇))
2		brne0 5199	. . . . . . 7 ⊢ (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐵(𝑂‘𝐴)𝐶) ≠ ∅)
3		bropfvvvv.oo	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐵(𝑂‘𝐴)𝐶) = {⟨𝑑, 𝑒⟩ ∣ 𝜃})
4	3	3expb 1119	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐵(𝑂‘𝐴)𝐶) = {⟨𝑑, 𝑒⟩ ∣ 𝜃})
5	4	breqd 5160	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 ↔ 𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸))
6		brabv 5570	. . . . . . . . . . . . . . 15 ⊢ (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐷 ∈ V ∧ 𝐸 ∈ V))
7	6	anim2i 616	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ 𝑈 ∧ 𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))
8	7	ex 412	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑈 → (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
9	8	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
10	5, 9	sylbid 239	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
11	10	ex 412	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑈 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
12	11	com23 86	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑈 → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
13	12	a1d 25	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑈 → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
14		bropfvvvv.o	. . . . . . . . . 10 ⊢ 𝑂 = (𝑎 ∈ 𝑈 ↦ (𝑏 ∈ 𝑉, 𝑐 ∈ 𝑊 ↦ {⟨𝑑, 𝑒⟩ ∣ 𝜑}))
15	14	fvmptndm 7029	. . . . . . . . 9 ⊢ (¬ 𝐴 ∈ 𝑈 → (𝑂‘𝐴) = ∅)
16		df-ov 7415	. . . . . . . . . . 11 ⊢ (𝐵(𝑂‘𝐴)𝐶) = ((𝑂‘𝐴)‘⟨𝐵, 𝐶⟩)
17		fveq1 6891	. . . . . . . . . . 11 ⊢ ((𝑂‘𝐴) = ∅ → ((𝑂‘𝐴)‘⟨𝐵, 𝐶⟩) = (∅‘⟨𝐵, 𝐶⟩))
18	16, 17	eqtrid 2783	. . . . . . . . . 10 ⊢ ((𝑂‘𝐴) = ∅ → (𝐵(𝑂‘𝐴)𝐶) = (∅‘⟨𝐵, 𝐶⟩))
19		0fv 6936	. . . . . . . . . 10 ⊢ (∅‘⟨𝐵, 𝐶⟩) = ∅
20	18, 19	eqtrdi 2787	. . . . . . . . 9 ⊢ ((𝑂‘𝐴) = ∅ → (𝐵(𝑂‘𝐴)𝐶) = ∅)
21		eqneqall 2950	. . . . . . . . 9 ⊢ ((𝐵(𝑂‘𝐴)𝐶) = ∅ → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
22	15, 20, 21	3syl 18	. . . . . . . 8 ⊢ (¬ 𝐴 ∈ 𝑈 → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
23	13, 22	pm2.61i 182	. . . . . . 7 ⊢ ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
24	2, 23	mpcom 38	. . . . . 6 ⊢ (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
25	24	com12 32	. . . . 5 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
26	25	anc2ri 556	. . . 4 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇))))
27		3anan32 1096	. . . 4 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ↔ ((𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)))
28	26, 27	imbitrrdi 251	. . 3 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
29	1, 28	sylbi 216	. 2 ⊢ (⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
30	29	imp 406	1 ⊢ ((⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) ∧ 𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸) → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 395   ∧ w3a 1086   = wceq 1540   ∈ wcel 2105   ≠ wne 2939  Vcvv 3473  ∅c0 4323  ⟨cop 4635   class class class wbr 5149  {copab 5211   ↦ cmpt 5232   × cxp 5675  ‘cfv 6544  (class class class)co 7412   ∈ cmpo 7414

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-sep 5300  ax-nul 5307  ax-pr 5428

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-rab 3432  df-v 3475  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-nul 4324  df-if 4530  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4910  df-br 5150  df-opab 5212  df-mpt 5233  df-xp 5683  df-dm 5687  df-iota 6496  df-fv 6552  df-ov 7415

This theorem is referenced by:  bropfvvvv  8081