Theorem chscllem3 32064

Description: Lemma for chscl 32066. (Contributed by Mario Carneiro, 19-May-2014.) (New usage is discouraged.)

Hypotheses

Ref	Expression
chscl.1	⊢ (𝜑 → 𝐴 ∈ Cℋ )
chscl.2	⊢ (𝜑 → 𝐵 ∈ Cℋ )
chscl.3	⊢ (𝜑 → 𝐵 ⊆ (⊥‘𝐴))
chscl.4	⊢ (𝜑 → 𝐻:ℕ⟶(𝐴 +ℋ 𝐵))
chscl.5	⊢ (𝜑 → 𝐻 ⇝𝑣 𝑢)
chscl.6	⊢ 𝐹 = (𝑛 ∈ ℕ ↦ ((projℎ‘𝐴)‘(𝐻‘𝑛)))
chscllem3.7	⊢ (𝜑 → 𝑁 ∈ ℕ)
chscllem3.8	⊢ (𝜑 → 𝐶 ∈ 𝐴)
chscllem3.9	⊢ (𝜑 → 𝐷 ∈ 𝐵)
chscllem3.10	⊢ (𝜑 → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))

Assertion

Ref	Expression
chscllem3	⊢ (𝜑 → 𝐶 = (𝐹‘𝑁))

Distinct variable groups:   𝑢,𝑛,𝐴   𝜑,𝑛   𝐵,𝑛,𝑢   𝑛,𝐻,𝑢   𝑛,𝑁

Allowed substitution hints:   𝜑(𝑢)   𝐶(𝑢, 𝑛)   𝐷(𝑢, 𝑛)   𝐹(𝑢, 𝑛)   𝑁(𝑢)

Proof of Theorem chscllem3

Dummy variable 𝑧 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		chscllem3.7	. . . . . 6 ⊢ (𝜑 → 𝑁 ∈ ℕ)
2		2fveq3 6890	. . . . . . 7 ⊢ (𝑛 = 𝑁 → ((projℎ‘𝐴)‘(𝐻‘𝑛)) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
3		chscl.6	. . . . . . 7 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ ((projℎ‘𝐴)‘(𝐻‘𝑛)))
4		fvex 6898	. . . . . . 7 ⊢ ((projℎ‘𝐴)‘(𝐻‘𝑁)) ∈ V
5	2, 3, 4	fvmpt 6993	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
6	1, 5	syl 18	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
7	6	eqcomd 2771	. . . 4 ⊢ (𝜑 → ((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁))
8		chscl.1	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ Cℋ )
9		chscl.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ Cℋ )
10		chsh 31649	. . . . . . . . 9 ⊢ (𝐵 ∈ Cℋ → 𝐵 ∈ Sℋ )
11	9, 10	syl 18	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Sℋ )
12		chsh 31649	. . . . . . . . . 10 ⊢ (𝐴 ∈ Cℋ → 𝐴 ∈ Sℋ )
13	8, 12	syl 18	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ Sℋ )
14		shocsh 31709	. . . . . . . . 9 ⊢ (𝐴 ∈ Sℋ → (⊥‘𝐴) ∈ Sℋ )
15	13, 14	syl 18	. . . . . . . 8 ⊢ (𝜑 → (⊥‘𝐴) ∈ Sℋ )
16		chscl.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ (⊥‘𝐴))
17		shless 31784	. . . . . . . 8 ⊢ (((𝐵 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ∧ 𝐴 ∈ Sℋ ) ∧ 𝐵 ⊆ (⊥‘𝐴)) → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
18	11, 15, 13, 16, 17	syl31anc 1400	. . . . . . 7 ⊢ (𝜑 → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
19		shscom 31744	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ 𝐵 ∈ Sℋ ) → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
20	13, 11, 19	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
21		shscom 31744	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ) → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
22	13, 15, 21	syl2anc 596	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
23	18, 20, 22	3sstr4d 3993	. . . . . 6 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) ⊆ (𝐴 +ℋ (⊥‘𝐴)))
24		chscl.4	. . . . . . 7 ⊢ (𝜑 → 𝐻:ℕ⟶(𝐴 +ℋ 𝐵))
25	24, 1	ffvelcdmd 7084	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ 𝐵))
26	23, 25	sseldd 3939	. . . . 5 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴)))
27		pjpreeq 31823	. . . . 5 ⊢ ((𝐴 ∈ Cℋ ∧ (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴))) → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
28	8, 26, 27	syl2anc 596	. . . 4 ⊢ (𝜑 → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
29	7, 28	mpbid 235	. . 3 ⊢ (𝜑 → ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧)))
30	29	simprd 501	. 2 ⊢ (𝜑 → ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
31	13	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐴 ∈ Sℋ )
32	15	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (⊥‘𝐴) ∈ Sℋ )
33		ocin 31721	. . . . . 6 ⊢ (𝐴 ∈ Sℋ → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
34	13, 33	syl 18	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
35	34	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
36		chscllem3.8	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ 𝐴)
37	36	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 ∈ 𝐴)
38	16	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐵 ⊆ (⊥‘𝐴))
39		chscllem3.9	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ 𝐵)
40	39	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ 𝐵)
41	38, 40	sseldd 3939	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ (⊥‘𝐴))
42		chscl.5	. . . . . . 7 ⊢ (𝜑 → 𝐻 ⇝𝑣 𝑢)
43	8, 9, 16, 24, 42, 3	chscllem1 32062	. . . . . 6 ⊢ (𝜑 → 𝐹:ℕ⟶𝐴)
44	43, 1	ffvelcdmd 7084	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) ∈ 𝐴)
45	44	adantr 486	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐹‘𝑁) ∈ 𝐴)
46		simprl 783	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝑧 ∈ (⊥‘𝐴))
47		chscllem3.10	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
48	47	adantr 486	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
49		simprr 785	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
50	48, 49	eqtr3d 2802	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 +ℎ 𝐷) = ((𝐹‘𝑁) +ℎ 𝑧))
51	31, 32, 35, 37, 41, 45, 46, 50	shuni 31725	. . 3 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 = (𝐹‘𝑁) ∧ 𝐷 = 𝑧))
52	51	simpld 500	. 2 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 = (𝐹‘𝑁))
53	30, 52	rexlimddv 3174	1 ⊢ (𝜑 → 𝐶 = (𝐹‘𝑁))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146  ∃wrex 3091   ∩ cin 3905   ⊆ wss 3906   class class class wbr 5111   ↦ cmpt 5194  ⟶wf 6536  ‘cfv 6540  (class class class)co 7419  ℕcn 12250   +_ℎ cva 31345   ⇝_𝑣 chli 31352   S_ℋ csh 31353   C_ℋ cch 31354  ⊥cort 31355   +_ℋ cph 31356  0_ℋc0h 31360  proj_ℎcpjh 31362

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 2148  ax-9 2156  ax-10 2179  ax-11 2195  ax-12 2216  ax-ext 2737  ax-rep 5240  ax-sep 5259  ax-nul 5271  ax-pow 5338  ax-pr 5406  ax-un 7742  ax-resscn 11174  ax-1cn 11175  ax-icn 11176  ax-addcl 11177  ax-addrcl 11178  ax-mulcl 11179  ax-mulrcl 11180  ax-mulcom 11181  ax-addass 11182  ax-mulass 11183  ax-distr 11184  ax-i2m1 11185  ax-1ne0 11186  ax-1rid 11187  ax-rnegex 11188  ax-rrecex 11189  ax-cnre 11190  ax-pre-lttri 11191  ax-pre-lttrn 11192  ax-pre-ltadd 11193  ax-pre-mulgt0 11194  ax-hilex 31424  ax-hfvadd 31425  ax-hvcom 31426  ax-hvass 31427  ax-hv0cl 31428  ax-hvaddid 31429  ax-hfvmul 31430  ax-hvmulid 31431  ax-hvmulass 31432  ax-hvdistr1 31433  ax-hvdistr2 31434  ax-hvmul0 31435  ax-hfi 31504  ax-his2 31508  ax-his3 31509  ax-his4 31510

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-nfc 2914  df-ne 2961  df-nel 3067  df-ral 3082  df-rex 3092  df-rmo 3371  df-reu 3372  df-rab 3419  df-v 3459  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-pw 4566  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-iun 4960  df-br 5112  df-opab 5176  df-mpt 5195  df-id 5558  df-po 5571  df-so 5572  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6496  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-riota 7376  df-ov 7422  df-oprab 7423  df-mpo 7424  df-er 8700  df-en 8950  df-dom 8951  df-sdom 8952  df-pnf 11262  df-mnf 11263  df-xr 11264  df-ltxr 11265  df-le 11266  df-sub 11460  df-neg 11461  df-div 11889  df-grpo 30918  df-ablo 30970  df-hvsub 31396  df-sh 31632  df-ch 31646  df-oc 31677  df-ch0 31678  df-shs 31733  df-pjh 31820

This theorem is used by:  chscllem4  32065