Theorem chscllem3 31671

Description: Lemma for chscl 31673. (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 6925	. . . . . . 7 ⊢ (𝑛 = 𝑁 → ((projℎ‘𝐴)‘(𝐻‘𝑛)) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
3		chscl.6	. . . . . . 7 ⊢ 𝐹 = (𝑛 ∈ ℕ ↦ ((projℎ‘𝐴)‘(𝐻‘𝑛)))
4		fvex 6933	. . . . . . 7 ⊢ ((projℎ‘𝐴)‘(𝐻‘𝑁)) ∈ V
5	2, 3, 4	fvmpt 7029	. . . . . 6 ⊢ (𝑁 ∈ ℕ → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
6	1, 5	syl 17	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) = ((projℎ‘𝐴)‘(𝐻‘𝑁)))
7	6	eqcomd 2746	. . . 4 ⊢ (𝜑 → ((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁))
8		chscl.1	. . . . 5 ⊢ (𝜑 → 𝐴 ∈ Cℋ )
9		chscl.2	. . . . . . . . 9 ⊢ (𝜑 → 𝐵 ∈ Cℋ )
10		chsh 31256	. . . . . . . . 9 ⊢ (𝐵 ∈ Cℋ → 𝐵 ∈ Sℋ )
11	9, 10	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ∈ Sℋ )
12		chsh 31256	. . . . . . . . . 10 ⊢ (𝐴 ∈ Cℋ → 𝐴 ∈ Sℋ )
13	8, 12	syl 17	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ∈ Sℋ )
14		shocsh 31316	. . . . . . . . 9 ⊢ (𝐴 ∈ Sℋ → (⊥‘𝐴) ∈ Sℋ )
15	13, 14	syl 17	. . . . . . . 8 ⊢ (𝜑 → (⊥‘𝐴) ∈ Sℋ )
16		chscl.3	. . . . . . . 8 ⊢ (𝜑 → 𝐵 ⊆ (⊥‘𝐴))
17		shless 31391	. . . . . . . 8 ⊢ (((𝐵 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ∧ 𝐴 ∈ Sℋ ) ∧ 𝐵 ⊆ (⊥‘𝐴)) → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
18	11, 15, 13, 16, 17	syl31anc 1373	. . . . . . 7 ⊢ (𝜑 → (𝐵 +ℋ 𝐴) ⊆ ((⊥‘𝐴) +ℋ 𝐴))
19		shscom 31351	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ 𝐵 ∈ Sℋ ) → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
20	13, 11, 19	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) = (𝐵 +ℋ 𝐴))
21		shscom 31351	. . . . . . . 8 ⊢ ((𝐴 ∈ Sℋ ∧ (⊥‘𝐴) ∈ Sℋ ) → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
22	13, 15, 21	syl2anc 583	. . . . . . 7 ⊢ (𝜑 → (𝐴 +ℋ (⊥‘𝐴)) = ((⊥‘𝐴) +ℋ 𝐴))
23	18, 20, 22	3sstr4d 4056	. . . . . 6 ⊢ (𝜑 → (𝐴 +ℋ 𝐵) ⊆ (𝐴 +ℋ (⊥‘𝐴)))
24		chscl.4	. . . . . . 7 ⊢ (𝜑 → 𝐻:ℕ⟶(𝐴 +ℋ 𝐵))
25	24, 1	ffvelcdmd 7119	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ 𝐵))
26	23, 25	sseldd 4009	. . . . 5 ⊢ (𝜑 → (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴)))
27		pjpreeq 31430	. . . . 5 ⊢ ((𝐴 ∈ Cℋ ∧ (𝐻‘𝑁) ∈ (𝐴 +ℋ (⊥‘𝐴))) → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
28	8, 26, 27	syl2anc 583	. . . 4 ⊢ (𝜑 → (((projℎ‘𝐴)‘(𝐻‘𝑁)) = (𝐹‘𝑁) ↔ ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))))
29	7, 28	mpbid 232	. . 3 ⊢ (𝜑 → ((𝐹‘𝑁) ∈ 𝐴 ∧ ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧)))
30	29	simprd 495	. 2 ⊢ (𝜑 → ∃𝑧 ∈ (⊥‘𝐴)(𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
31	13	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐴 ∈ Sℋ )
32	15	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (⊥‘𝐴) ∈ Sℋ )
33		ocin 31328	. . . . . 6 ⊢ (𝐴 ∈ Sℋ → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
34	13, 33	syl 17	. . . . 5 ⊢ (𝜑 → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
35	34	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐴 ∩ (⊥‘𝐴)) = 0ℋ)
36		chscllem3.8	. . . . 5 ⊢ (𝜑 → 𝐶 ∈ 𝐴)
37	36	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 ∈ 𝐴)
38	16	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐵 ⊆ (⊥‘𝐴))
39		chscllem3.9	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ 𝐵)
40	39	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ 𝐵)
41	38, 40	sseldd 4009	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐷 ∈ (⊥‘𝐴))
42		chscl.5	. . . . . . 7 ⊢ (𝜑 → 𝐻 ⇝𝑣 𝑢)
43	8, 9, 16, 24, 42, 3	chscllem1 31669	. . . . . 6 ⊢ (𝜑 → 𝐹:ℕ⟶𝐴)
44	43, 1	ffvelcdmd 7119	. . . . 5 ⊢ (𝜑 → (𝐹‘𝑁) ∈ 𝐴)
45	44	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐹‘𝑁) ∈ 𝐴)
46		simprl 770	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝑧 ∈ (⊥‘𝐴))
47		chscllem3.10	. . . . . 6 ⊢ (𝜑 → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
48	47	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = (𝐶 +ℎ 𝐷))
49		simprr 772	. . . . 5 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))
50	48, 49	eqtr3d 2782	. . . 4 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 +ℎ 𝐷) = ((𝐹‘𝑁) +ℎ 𝑧))
51	31, 32, 35, 37, 41, 45, 46, 50	shuni 31332	. . 3 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → (𝐶 = (𝐹‘𝑁) ∧ 𝐷 = 𝑧))
52	51	simpld 494	. 2 ⊢ ((𝜑 ∧ (𝑧 ∈ (⊥‘𝐴) ∧ (𝐻‘𝑁) = ((𝐹‘𝑁) +ℎ 𝑧))) → 𝐶 = (𝐹‘𝑁))
53	30, 52	rexlimddv 3167	1 ⊢ (𝜑 → 𝐶 = (𝐹‘𝑁))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2108  ∃wrex 3076   ∩ cin 3975   ⊆ wss 3976   class class class wbr 5166   ↦ cmpt 5249  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448  ℕcn 12293   +_ℎ cva 30952   ⇝_𝑣 chli 30959   S_ℋ csh 30960   C_ℋ cch 30961  ⊥cort 30962   +_ℋ cph 30963  0_ℋc0h 30967  proj_ℎcpjh 30969

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770  ax-resscn 11241  ax-1cn 11242  ax-icn 11243  ax-addcl 11244  ax-addrcl 11245  ax-mulcl 11246  ax-mulrcl 11247  ax-mulcom 11248  ax-addass 11249  ax-mulass 11250  ax-distr 11251  ax-i2m1 11252  ax-1ne0 11253  ax-1rid 11254  ax-rnegex 11255  ax-rrecex 11256  ax-cnre 11257  ax-pre-lttri 11258  ax-pre-lttrn 11259  ax-pre-ltadd 11260  ax-pre-mulgt0 11261  ax-hilex 31031  ax-hfvadd 31032  ax-hvcom 31033  ax-hvass 31034  ax-hv0cl 31035  ax-hvaddid 31036  ax-hfvmul 31037  ax-hvmulid 31038  ax-hvmulass 31039  ax-hvdistr1 31040  ax-hvdistr2 31041  ax-hvmul0 31042  ax-hfi 31111  ax-his2 31115  ax-his3 31116  ax-his4 31117

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3or 1088  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-nel 3053  df-ral 3068  df-rex 3077  df-rmo 3388  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-po 5607  df-so 5608  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-er 8763  df-en 9004  df-dom 9005  df-sdom 9006  df-pnf 11326  df-mnf 11327  df-xr 11328  df-ltxr 11329  df-le 11330  df-sub 11522  df-neg 11523  df-div 11948  df-grpo 30525  df-ablo 30577  df-hvsub 31003  df-sh 31239  df-ch 31253  df-oc 31284  df-ch0 31285  df-shs 31340  df-pjh 31427

This theorem is referenced by:  chscllem4  31672