Theorem om1val 25264

Description: The definition of the loop space. (Contributed by Mario Carneiro, 10-Jul-2015.)

Hypotheses

Ref	Expression
om1val.o	⊢ 𝑂 = (𝐽 Ω1 𝑌)
om1val.b	⊢ (𝜑 → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
om1val.p	⊢ (𝜑 → + = (*𝑝‘𝐽))
om1val.k	⊢ (𝜑 → 𝐾 = (𝐽 ↑ko II))
om1val.j	⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
om1val.y	⊢ (𝜑 → 𝑌 ∈ 𝑋)

Assertion

Ref	Expression
om1val	⊢ (𝜑 → 𝑂 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})

Distinct variable groups:   𝑓,𝐽   𝜑,𝑓   𝑓,𝑌

Allowed substitution hints:   𝐵(𝑓)   + (𝑓)   𝐾(𝑓)   𝑂(𝑓)   𝑋(𝑓)

Proof of Theorem om1val

Dummy variables 𝑦 𝑗 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		om1val.o	. 2 ⊢ 𝑂 = (𝐽 Ω1 𝑌)
2		df-om1 25240	. . . 4 ⊢ Ω1 = (𝑗 ∈ Top, 𝑦 ∈ ∪ 𝑗 ↦ {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩})
3	2	a1i 11	. . 3 ⊢ (𝜑 → Ω1 = (𝑗 ∈ Top, 𝑦 ∈ ∪ 𝑗 ↦ {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩}))
4		simprl 783	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑗 = 𝐽)
5	4	oveq2d 7433	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (II Cn 𝑗) = (II Cn 𝐽))
6		simprr 785	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
7	6	eqeq2d 2773	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘0) = 𝑦 ↔ (𝑓‘0) = 𝑌))
8	6	eqeq2d 2773	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘1) = 𝑦 ↔ (𝑓‘1) = 𝑌))
9	7, 8	anbi12d 644	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦) ↔ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)))
10	5, 9	rabeqbidv 3432	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
11		om1val.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
12	11	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
13	10, 12	eqtr4d 2800	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = 𝐵)
14	13	opeq2d 4843	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩ = ⟨(Base‘ndx), 𝐵⟩)
15	4	fveq2d 6886	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = (*𝑝‘𝐽))
16		om1val.p	. . . . . . 7 ⊢ (𝜑 → + = (*𝑝‘𝐽))
17	16	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → + = (*𝑝‘𝐽))
18	15, 17	eqtr4d 2800	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = + )
19	18	opeq2d 4843	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(+g‘ndx), (*𝑝‘𝑗)⟩ = ⟨(+g‘ndx), + ⟩)
20	4	oveq1d 7432	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = (𝐽 ↑ko II))
21		om1val.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 = (𝐽 ↑ko II))
22	21	adantr 486	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐾 = (𝐽 ↑ko II))
23	20, 22	eqtr4d 2800	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = 𝐾)
24	23	opeq2d 4843	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩ = ⟨(TopSet‘ndx), 𝐾⟩)
25	14, 19, 24	tpeq123d 4712	. . 3 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
26		unieq 4881	. . . . 5 ⊢ (𝑗 = 𝐽 → ∪ 𝑗 = ∪ 𝐽)
27	26	adantl 487	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = ∪ 𝐽)
28		om1val.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
29		toponuni 23145	. . . . . 6 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝑋 = ∪ 𝐽)
30	28, 29	syl 18	. . . . 5 ⊢ (𝜑 → 𝑋 = ∪ 𝐽)
31	30	adantr 486	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → 𝑋 = ∪ 𝐽)
32	27, 31	eqtr4d 2800	. . 3 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = 𝑋)
33		topontop 23144	. . . 4 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝐽 ∈ Top)
34	28, 33	syl 18	. . 3 ⊢ (𝜑 → 𝐽 ∈ Top)
35		om1val.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
36		tpex 7751	. . . 4 ⊢ {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩} ∈ V
37	36	a1i 11	. . 3 ⊢ (𝜑 → {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩} ∈ V)
38	3, 25, 32, 34, 35, 37	ovmpodx 7568	. 2 ⊢ (𝜑 → (𝐽 Ω1 𝑌) = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
39	1, 38	eqtrid 2809	1 ⊢ (𝜑 → 𝑂 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2145  {crab 3414  Vcvv 3453  {ctp 4591  ⟨cop 4593  ∪ cuni 4870  ‘cfv 6537  (class class class)co 7417   ∈ cmpo 7419  0cc0 11128  1c1 11129  ndxcnx 17291  Basecbs 17307  +_gcplusg 17348  TopSetcts 17354  Topctop 23124  TopOnctopon 23141   Cn ccn 23455   ↑_ko cxko 23793  IIcii 25109  *_𝑝cpco 25234   Ω₁ comi 25235

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2147  ax-9 2155  ax-10 2178  ax-11 2194  ax-12 2215  ax-ext 2734  ax-sep 5255  ax-nul 5267  ax-pow 5334  ax-pr 5402  ax-un 7740

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rab 3415  df-v 3455  df-sbc 3743  df-dif 3905  df-un 3907  df-in 3909  df-ss 3919  df-nul 4283  df-if 4486  df-pw 4562  df-sn 4588  df-pr 4590  df-tp 4592  df-op 4594  df-uni 4871  df-br 5108  df-opab 5172  df-mpt 5191  df-id 5554  df-xp 5665  df-rel 5666  df-cnv 5667  df-co 5668  df-dm 5669  df-iota 6493  df-fun 6539  df-fv 6545  df-ov 7420  df-oprab 7421  df-mpo 7422  df-topon 23142  df-om1 25240

This theorem is used by:  om1bas  25265  om1plusg  25268  om1tset  25269