Theorem om1val 24537

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 24513	. . . 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 769	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑗 = 𝐽)
5	4	oveq2d 7421	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (II Cn 𝑗) = (II Cn 𝐽))
6		simprr 771	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
7	6	eqeq2d 2743	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘0) = 𝑦 ↔ (𝑓‘0) = 𝑌))
8	6	eqeq2d 2743	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘1) = 𝑦 ↔ (𝑓‘1) = 𝑌))
9	7, 8	anbi12d 631	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦) ↔ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)))
10	5, 9	rabeqbidv 3449	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
11		om1val.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
12	11	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
13	10, 12	eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = 𝐵)
14	13	opeq2d 4879	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩ = ⟨(Base‘ndx), 𝐵⟩)
15	4	fveq2d 6892	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = (*𝑝‘𝐽))
16		om1val.p	. . . . . . 7 ⊢ (𝜑 → + = (*𝑝‘𝐽))
17	16	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → + = (*𝑝‘𝐽))
18	15, 17	eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = + )
19	18	opeq2d 4879	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(+g‘ndx), (*𝑝‘𝑗)⟩ = ⟨(+g‘ndx), + ⟩)
20	4	oveq1d 7420	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = (𝐽 ↑ko II))
21		om1val.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 = (𝐽 ↑ko II))
22	21	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐾 = (𝐽 ↑ko II))
23	20, 22	eqtr4d 2775	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = 𝐾)
24	23	opeq2d 4879	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩ = ⟨(TopSet‘ndx), 𝐾⟩)
25	14, 19, 24	tpeq123d 4751	. . 3 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
26		unieq 4918	. . . . 5 ⊢ (𝑗 = 𝐽 → ∪ 𝑗 = ∪ 𝐽)
27	26	adantl 482	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = ∪ 𝐽)
28		om1val.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
29		toponuni 22407	. . . . . 6 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝑋 = ∪ 𝐽)
30	28, 29	syl 17	. . . . 5 ⊢ (𝜑 → 𝑋 = ∪ 𝐽)
31	30	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → 𝑋 = ∪ 𝐽)
32	27, 31	eqtr4d 2775	. . 3 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = 𝑋)
33		topontop 22406	. . . 4 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝐽 ∈ Top)
34	28, 33	syl 17	. . 3 ⊢ (𝜑 → 𝐽 ∈ Top)
35		om1val.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
36		tpex 7730	. . . 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 7555	. 2 ⊢ (𝜑 → (𝐽 Ω1 𝑌) = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
39	1, 38	eqtrid 2784	1 ⊢ (𝜑 → 𝑂 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})

Syntax hints:   → wi 4   ∧ wa 396   = wceq 1541   ∈ wcel 2106  {crab 3432  Vcvv 3474  {ctp 4631  ⟨cop 4633  ∪ cuni 4907  ‘cfv 6540  (class class class)co 7405   ∈ cmpo 7407  0cc0 11106  1c1 11107  ndxcnx 17122  Basecbs 17140  +_gcplusg 17193  TopSetcts 17199  Topctop 22386  TopOnctopon 22403   Cn ccn 22719   ↑_ko cxko 23056  IIcii 24382  *_𝑝cpco 24507   Ω₁ comi 24508

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ral 3062  df-rex 3071  df-rab 3433  df-v 3476  df-sbc 3777  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-iota 6492  df-fun 6542  df-fv 6548  df-ov 7408  df-oprab 7409  df-mpo 7410  df-topon 22404  df-om1 24513

This theorem is referenced by:  om1bas  24538  om1plusg  24541  om1tset  24542