Theorem om1val 23636

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 23612	. . . 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 7174	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (II Cn 𝑗) = (II Cn 𝐽))
6		simprr 771	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝑦 = 𝑌)
7	6	eqeq2d 2834	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘0) = 𝑦 ↔ (𝑓‘0) = 𝑌))
8	6	eqeq2d 2834	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ((𝑓‘1) = 𝑦 ↔ (𝑓‘1) = 𝑌))
9	7, 8	anbi12d 632	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦) ↔ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)))
10	5, 9	rabeqbidv 3487	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
11		om1val.b	. . . . . . 7 ⊢ (𝜑 → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
12	11	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐵 = {𝑓 ∈ (II Cn 𝐽) ∣ ((𝑓‘0) = 𝑌 ∧ (𝑓‘1) = 𝑌)})
13	10, 12	eqtr4d 2861	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)} = 𝐵)
14	13	opeq2d 4812	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩ = ⟨(Base‘ndx), 𝐵⟩)
15	4	fveq2d 6676	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = (*𝑝‘𝐽))
16		om1val.p	. . . . . . 7 ⊢ (𝜑 → + = (*𝑝‘𝐽))
17	16	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → + = (*𝑝‘𝐽))
18	15, 17	eqtr4d 2861	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (*𝑝‘𝑗) = + )
19	18	opeq2d 4812	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(+g‘ndx), (*𝑝‘𝑗)⟩ = ⟨(+g‘ndx), + ⟩)
20	4	oveq1d 7173	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = (𝐽 ↑ko II))
21		om1val.k	. . . . . . 7 ⊢ (𝜑 → 𝐾 = (𝐽 ↑ko II))
22	21	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → 𝐾 = (𝐽 ↑ko II))
23	20, 22	eqtr4d 2861	. . . . 5 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → (𝑗 ↑ko II) = 𝐾)
24	23	opeq2d 4812	. . . 4 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩ = ⟨(TopSet‘ndx), 𝐾⟩)
25	14, 19, 24	tpeq123d 4686	. . 3 ⊢ ((𝜑 ∧ (𝑗 = 𝐽 ∧ 𝑦 = 𝑌)) → {⟨(Base‘ndx), {𝑓 ∈ (II Cn 𝑗) ∣ ((𝑓‘0) = 𝑦 ∧ (𝑓‘1) = 𝑦)}⟩, ⟨(+g‘ndx), (*𝑝‘𝑗)⟩, ⟨(TopSet‘ndx), (𝑗 ↑ko II)⟩} = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
26		unieq 4851	. . . . 5 ⊢ (𝑗 = 𝐽 → ∪ 𝑗 = ∪ 𝐽)
27	26	adantl 484	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = ∪ 𝐽)
28		om1val.j	. . . . . 6 ⊢ (𝜑 → 𝐽 ∈ (TopOn‘𝑋))
29		toponuni 21524	. . . . . 6 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝑋 = ∪ 𝐽)
30	28, 29	syl 17	. . . . 5 ⊢ (𝜑 → 𝑋 = ∪ 𝐽)
31	30	adantr 483	. . . 4 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → 𝑋 = ∪ 𝐽)
32	27, 31	eqtr4d 2861	. . 3 ⊢ ((𝜑 ∧ 𝑗 = 𝐽) → ∪ 𝑗 = 𝑋)
33		topontop 21523	. . . 4 ⊢ (𝐽 ∈ (TopOn‘𝑋) → 𝐽 ∈ Top)
34	28, 33	syl 17	. . 3 ⊢ (𝜑 → 𝐽 ∈ Top)
35		om1val.y	. . 3 ⊢ (𝜑 → 𝑌 ∈ 𝑋)
36		tpex 7472	. . . 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 7303	. 2 ⊢ (𝜑 → (𝐽 Ω1 𝑌) = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})
39	1, 38	syl5eq 2870	1 ⊢ (𝜑 → 𝑂 = {⟨(Base‘ndx), 𝐵⟩, ⟨(+g‘ndx), + ⟩, ⟨(TopSet‘ndx), 𝐾⟩})

Syntax hints:   → wi 4   ∧ wa 398   = wceq 1537   ∈ wcel 2114  {crab 3144  Vcvv 3496  {ctp 4573  ⟨cop 4575  ∪ cuni 4840  ‘cfv 6357  (class class class)co 7158   ∈ cmpo 7160  0cc0 10539  1c1 10540  ndxcnx 16482  Basecbs 16485  +_gcplusg 16567  TopSetcts 16573  Topctop 21503  TopOnctopon 21520   Cn ccn 21834   ↑_ko cxko 22171  IIcii 23485  *_𝑝cpco 23606   Ω₁ comi 23607

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 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ral 3145  df-rex 3146  df-rab 3149  df-v 3498  df-sbc 3775  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-br 5069  df-opab 5131  df-mpt 5149  df-id 5462  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-iota 6316  df-fun 6359  df-fv 6365  df-ov 7161  df-oprab 7162  df-mpo 7163  df-topon 21521  df-om1 23612

This theorem is referenced by:  om1bas  23637  om1plusg  23640  om1tset  23641