Theorem chscllem3 31842

Description: Lemma for chscl 31844. (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 6872	. . . . . . 7 ⊢ (𝑛 = 𝑁 → ((projℎ‘𝐴)‘(𝐻‘𝑛)) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
3		chscl.6	. . . . . . 7 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ ((projℎ‘𝐴)‘(𝐻‘𝑛)))
4		fvex 6880	. . . . . . 7 ⊢ ((projℎ‘𝐴)‘(𝐻‘𝑁)) ∈ V
5	2, 3, 4	fvmpt 6975	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
6	1, 5	syl 17	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
7	6	eqcomd 2768	. . . 4 ⊢ (𝜑 → ((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁))
8		chscl.1	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ Cℋ )
9		chscl.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ Cℋ )
10		chsh 31427	. . . . . . . . 9 ⊢ (𝐵 ∈ Cℋ → 𝐵 ∈ Sℋ )
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Sℋ )
12		chsh 31427	. . . . . . . . . 10 ⊢ (𝐴 ∈ Cℋ → 𝐴 ∈ Sℋ )
13	8, 12	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ Sℋ )
14		shocsh 31487	. . . . . . . . 9 ⊢ (𝐴 ∈ Sℋ → (⊥‘𝐴) ∈ Sℋ )
15	13, 14	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⊥‘𝐴) ∈ Sℋ )
16		chscl.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ (⊥‘𝐴))
17		shless 31562	. . . . . . . 8 ⊢ (((𝐵 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ∧ 𝐴 ∈ Sℋ ) ∧ 𝐵 ⊆ (⊥‘𝐴)) → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
18	11, 15, 13, 16, 17	syl31anc 1392	. . . . . . 7 ⊢ (𝜑 → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
19		shscom 31522	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ 𝐵 ∈ Sℋ ) → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
20	13, 11, 19	syl2anc 593	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
21		shscom 31522	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ) → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
22	13, 15, 21	syl2anc 593	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
23	18, 20, 22	3sstr4d 3991	. . . . . 6 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) ⊆ (𝐴 +ℋ (⊥‘𝐴)))
24		chscl.4	. . . . . . 7 ⊢ (𝜑 → 𝐻:ℕ⟶(𝐴 +ℋ 𝐵))
25	24, 1	ffvelcdmd 7066	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ 𝐵))
26	23, 25	sseldd 3937	. . . . 5 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴)))
27		pjpreeq 31601	. . . . 5 ⊢ ((𝐴 ∈ Cℋ ∧ (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴))) → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
28	8, 26, 27	syl2anc 593	. . . 4 ⊢ (𝜑 → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
29	7, 28	mpbid 234	. . 3 ⊢ (𝜑 → ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧)))
30	29	simprd 499	. 2 ⊢ (𝜑 → ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
31	13	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐴 ∈ Sℋ )
32	15	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (⊥‘𝐴) ∈ Sℋ )
33		ocin 31499	. . . . . 6 ⊢ (𝐴 ∈ Sℋ → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
34	13, 33	syl 17	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
35	34	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
36		chscllem3.8	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ 𝐴)
37	36	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 ∈ 𝐴)
38	16	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐵 ⊆ (⊥‘𝐴))
39		chscllem3.9	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ 𝐵)
40	39	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ 𝐵)
41	38, 40	sseldd 3937	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ (⊥‘𝐴))
42		chscl.5	. . . . . . 7 ⊢ (𝜑 → 𝐻 ⇝𝑣 𝑢)
43	8, 9, 16, 24, 42, 3	chscllem1 31840	. . . . . 6 ⊢ (𝜑 → 𝐹:ℕ⟶𝐴)
44	43, 1	ffvelcdmd 7066	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) ∈ 𝐴)
45	44	adantr 484	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐹‘𝑁) ∈ 𝐴)
46		simprl 780	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝑧 ∈ (⊥‘𝐴))
47		chscllem3.10	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
48	47	adantr 484	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
49		simprr 782	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
50	48, 49	eqtr3d 2799	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 +ℎ 𝐷) = ((𝐹‘𝑁) +ℎ 𝑧))
51	31, 32, 35, 37, 41, 45, 46, 50	shuni 31503	. . 3 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 = (𝐹‘𝑁) ∧ 𝐷 = 𝑧))
52	51	simpld 498	. 2 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 = (𝐹‘𝑁))
53	30, 52	rexlimddv 3169	1 ⊢ (𝜑 → 𝐶 = (𝐹‘𝑁))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1560   ∈ wcel 2142  ∃wrex 3086   ∩ cin 3903   ⊆ wss 3904   class class class wbr 5100   ↦ cmpt 5181  ⟶wf 6517  ‘cfv 6521  (class class class)co 7396  ℕcn 12210   +_ℎ cva 31123   ⇝_𝑣 chli 31130   S_ℋ csh 31131   C_ℋ cch 31132  ⊥cort 31133   +_ℋ cph 31134  0_ℋc0h 31138  proj_ℎcpjh 31140

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1815  ax-4 1829  ax-5 1930  ax-6 1987  ax-7 2028  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-rep 5227  ax-sep 5246  ax-nul 5256  ax-pow 5322  ax-pr 5390  ax-un 7718  ax-resscn 11130  ax-1cn 11131  ax-icn 11132  ax-addcl 11133  ax-addrcl 11134  ax-mulcl 11135  ax-mulrcl 11136  ax-mulcom 11137  ax-addass 11138  ax-mulass 11139  ax-distr 11140  ax-i2m1 11141  ax-1ne0 11142  ax-1rid 11143  ax-rnegex 11144  ax-rrecex 11145  ax-cnre 11146  ax-pre-lttri 11147  ax-pre-lttrn 11148  ax-pre-ltadd 11149  ax-pre-mulgt0 11150  ax-hilex 31202  ax-hfvadd 31203  ax-hvcom 31204  ax-hvass 31205  ax-hv0cl 31206  ax-hvaddid 31207  ax-hfvmul 31208  ax-hvmulid 31209  ax-hvmulass 31210  ax-hvdistr1 31211  ax-hvdistr2 31212  ax-hvmul0 31213  ax-hfi 31282  ax-his2 31286  ax-his3 31287  ax-his4 31288

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1099  df-3an 1100  df-tru 1563  df-fal 1573  df-ex 1800  df-nf 1804  df-sb 2091  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-nel 3062  df-ral 3077  df-rex 3087  df-rmo 3367  df-reu 3368  df-rab 3415  df-v 3456  df-sbc 3745  df-csb 3853  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4481  df-pw 4557  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-iun 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5542  df-po 5555  df-so 5556  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-iota 6477  df-fun 6523  df-fn 6524  df-f 6525  df-f1 6526  df-fo 6527  df-f1o 6528  df-fv 6529  df-riota 7353  df-ov 7399  df-oprab 7400  df-mpo 7401  df-er 8678  df-en 8928  df-dom 8929  df-sdom 8930  df-pnf 11218  df-mnf 11219  df-xr 11220  df-ltxr 11221  df-le 11222  df-sub 11416  df-neg 11417  df-div 11845  df-grpo 30696  df-ablo 30748  df-hvsub 31174  df-sh 31410  df-ch 31424  df-oc 31455  df-ch0 31456  df-shs 31511  df-pjh 31598

This theorem is referenced by:  chscllem4  31843