Theorem bropfvvvvlem 7143

Description: Lemma for bropfvvvv 7144. (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 5070	. . 3 ⊢ (⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) ↔ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇))
2		brne0 4632	. . . . . . 7 ⊢ (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐵(𝑂‘𝐴)𝐶) ≠ ∅)
3		bropfvvvv.oo	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ 𝑈 ∧ 𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐵(𝑂‘𝐴)𝐶) = {⟨𝑑, 𝑒⟩ ∣ 𝜃})
4	3	3expb 1258	. . . . . . . . . . . . 13 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐵(𝑂‘𝐴)𝐶) = {⟨𝑑, 𝑒⟩ ∣ 𝜃})
5	4	breqd 4594	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 ↔ 𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸))
6		brabv 6597	. . . . . . . . . . . . . . 15 ⊢ (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐷 ∈ V ∧ 𝐸 ∈ V))
7	6	anim2i 591	. . . . . . . . . . . . . 14 ⊢ ((𝐴 ∈ 𝑈 ∧ 𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))
8	7	ex 449	. . . . . . . . . . . . 13 ⊢ (𝐴 ∈ 𝑈 → (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
9	8	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷{⟨𝑑, 𝑒⟩ ∣ 𝜃}𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
10	5, 9	sylbid 229	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
11	10	ex 449	. . . . . . . . . 10 ⊢ (𝐴 ∈ 𝑈 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
12	11	com23 84	. . . . . . . . 9 ⊢ (𝐴 ∈ 𝑈 → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
13	12	a1d 25	. . . . . . . 8 ⊢ (𝐴 ∈ 𝑈 → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
14		bropfvvvv.o	. . . . . . . . . 10 ⊢ 𝑂 = (𝑎 ∈ 𝑈 ↦ (𝑏 ∈ 𝑉, 𝑐 ∈ 𝑊 ↦ {⟨𝑑, 𝑒⟩ ∣ 𝜑}))
15	14	fvmptndm 6216	. . . . . . . . 9 ⊢ (¬ 𝐴 ∈ 𝑈 → (𝑂‘𝐴) = ∅)
16		df-ov 6552	. . . . . . . . . . 11 ⊢ (𝐵(𝑂‘𝐴)𝐶) = ((𝑂‘𝐴)‘⟨𝐵, 𝐶⟩)
17		fveq1 6102	. . . . . . . . . . 11 ⊢ ((𝑂‘𝐴) = ∅ → ((𝑂‘𝐴)‘⟨𝐵, 𝐶⟩) = (∅‘⟨𝐵, 𝐶⟩))
18	16, 17	syl5eq 2656	. . . . . . . . . 10 ⊢ ((𝑂‘𝐴) = ∅ → (𝐵(𝑂‘𝐴)𝐶) = (∅‘⟨𝐵, 𝐶⟩))
19		0fv 6137	. . . . . . . . . 10 ⊢ (∅‘⟨𝐵, 𝐶⟩) = ∅
20	18, 19	syl6eq 2660	. . . . . . . . 9 ⊢ ((𝑂‘𝐴) = ∅ → (𝐵(𝑂‘𝐴)𝐶) = ∅)
21		eqneqall 2793	. . . . . . . . 9 ⊢ ((𝐵(𝑂‘𝐴)𝐶) = ∅ → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
22	15, 20, 21	3syl 18	. . . . . . . 8 ⊢ (¬ 𝐴 ∈ 𝑈 → ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))))
23	13, 22	pm2.61i 175	. . . . . . 7 ⊢ ((𝐵(𝑂‘𝐴)𝐶) ≠ ∅ → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))))
24	2, 23	mpcom 37	. . . . . 6 ⊢ (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
25	24	com12 32	. . . . 5 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
26	25	anc2ri 579	. . . 4 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → ((𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇))))
27		3anan32 1043	. . . 4 ⊢ ((𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ↔ ((𝐴 ∈ 𝑈 ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)) ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇)))
28	26, 27	syl6ibr 241	. . 3 ⊢ ((𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
29	1, 28	sylbi 206	. 2 ⊢ (⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) → (𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸 → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V))))
30	29	imp 444	1 ⊢ ((⟨𝐵, 𝐶⟩ ∈ (𝑆 × 𝑇) ∧ 𝐷(𝐵(𝑂‘𝐴)𝐶)𝐸) → (𝐴 ∈ 𝑈 ∧ (𝐵 ∈ 𝑆 ∧ 𝐶 ∈ 𝑇) ∧ (𝐷 ∈ V ∧ 𝐸 ∈ V)))

Syntax hints:  ¬ wn 3   → wi 4   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  Vcvv 3173  ∅c0 3874  ⟨cop 4131   class class class wbr 4583  {copab 4642   ↦ cmpt 4643   × cxp 5036  ‘cfv 5804  (class class class)co 6549   ↦ cmpt2 6551

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-ral 2901  df-rex 2902  df-rab 2905  df-v 3175  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-br 4584  df-opab 4644  df-mpt 4645  df-xp 5044  df-dm 5048  df-iota 5768  df-fv 5812  df-ov 6552

This theorem is referenced by:  bropfvvvv  7144