Theorem om1val 25077

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 25053	. . . 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 771	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑗 = 𝐽)
5	4	oveq2d 7447	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (II Cn 𝑗) = (II Cn 𝐽))
6		simprr 773	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
7	6	eqeq2d 2746	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘0) = 𝑦 ↔ (𝑓‘0) = 𝑌))
8	6	eqeq2d 2746	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘1) = 𝑦 ↔ (𝑓‘1) = 𝑌))
9	7, 8	anbi12d 632	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦) ↔ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)))
10	5, 9	rabeqbidv 3452	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
11		om1val.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
12	11	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
13	10, 12	eqtr4d 2778	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = 𝐵)
14	13	opeq2d 4885	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩ = ⟨(Base‘ndx), 𝐵⟩)
15	4	fveq2d 6911	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = (*𝑝‘𝐽))
16		om1val.p	. . . . . . 7 ⊢ (𝜑 → + = (*𝑝‘𝐽))
17	16	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → + = (*𝑝‘𝐽))
18	15, 17	eqtr4d 2778	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = + )
19	18	opeq2d 4885	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(+g‘ndx), (*𝑝‘𝑗)⟩ = ⟨(+g‘ndx), + ⟩)
20	4	oveq1d 7446	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = (𝐽 ↑ko II))
21		om1val.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 = (𝐽 ↑ko II))
22	21	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐾 = (𝐽 ↑ko II))
23	20, 22	eqtr4d 2778	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = 𝐾)
24	23	opeq2d 4885	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩ = ⟨(TopSet‘ndx), 𝐾⟩)
25	14, 19, 24	tpeq123d 4753	. . 3 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
26		unieq 4923	. . . . 5 ⊢ (𝑗 = 𝐽 → ∪ 𝑗 = ∪ 𝐽)
27	26	adantl 481	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = ∪ 𝐽)
28		om1val.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
29		toponuni 22936	. . . . . 6 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝑋 = ∪ 𝐽)
30	28, 29	syl 17	. . . . 5 ⊢ (𝜑 → 𝑋 = ∪ 𝐽)
31	30	adantr 480	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → 𝑋 = ∪ 𝐽)
32	27, 31	eqtr4d 2778	. . 3 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = 𝑋)
33		topontop 22935	. . . 4 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝐽 ∈ Top)
34	28, 33	syl 17	. . 3 ⊢ (𝜑 → 𝐽 ∈ Top)
35		om1val.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
36		tpex 7765	. . . 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 7584	. 2 ⊢ (𝜑 → (𝐽 Ω1 𝑌) = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
39	1, 38	eqtrid 2787	1 ⊢ (𝜑 → 𝑂 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1537   ∈ wcel 2106  {crab 3433  Vcvv 3478  {ctp 4635  ⟨cop 4637  ∪ cuni 4912  ‘cfv 6563  (class class class)co 7431   ∈ cmpo 7433  0cc0 11153  1c1 11154  ndxcnx 17227  Basecbs 17245  +_gcplusg 17298  TopSetcts 17304  Topctop 22915  TopOnctopon 22932   Cn ccn 23248   ↑_ko cxko 23585  IIcii 24915  *_𝑝cpco 25047   Ω₁ comi 25048

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1792  ax-4 1806  ax-5 1908  ax-6 1965  ax-7 2005  ax-8 2108  ax-9 2116  ax-10 2139  ax-11 2155  ax-12 2175  ax-ext 2706  ax-sep 5302  ax-nul 5312  ax-pow 5371  ax-pr 5438  ax-un 7754

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1540  df-fal 1550  df-ex 1777  df-nf 1781  df-sb 2063  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2727  df-clel 2814  df-nfc 2890  df-ral 3060  df-rex 3069  df-rab 3434  df-v 3480  df-sbc 3792  df-dif 3966  df-un 3968  df-in 3970  df-ss 3980  df-nul 4340  df-if 4532  df-pw 4607  df-sn 4632  df-pr 4634  df-tp 4636  df-op 4638  df-uni 4913  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5583  df-xp 5695  df-rel 5696  df-cnv 5697  df-co 5698  df-dm 5699  df-iota 6516  df-fun 6565  df-fv 6571  df-ov 7434  df-oprab 7435  df-mpo 7436  df-topon 22933  df-om1 25053

This theorem is referenced by:  om1bas  25078  om1plusg  25081  om1tset  25082