Theorem dihjatcclem4 41826

Description: Lemma for isomorphism H of lattice join of two atoms not under the fiducial hyperplane. (Contributed by NM, 29-Sep-2014.)

Hypotheses

Ref	Expression
dihjatcclem.b	⊢ 𝐵 = (Base‘𝐾)
dihjatcclem.l	⊢ ≤ = (le‘𝐾)
dihjatcclem.h	⊢ 𝐻 = (LHyp‘𝐾)
dihjatcclem.j	⊢ ∨ = (join‘𝐾)
dihjatcclem.m	⊢ ∧ = (meet‘𝐾)
dihjatcclem.a	⊢ 𝐴 = (Atoms‘𝐾)
dihjatcclem.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihjatcclem.s	⊢ ⊕ = (LSSum‘𝑈)
dihjatcclem.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihjatcclem.v	⊢ 𝑉 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
dihjatcclem.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
dihjatcclem.p	⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
dihjatcclem.q	⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
dihjatcc.w	⊢ 𝐶 = ((oc‘𝐾)‘𝑊)
dihjatcc.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dihjatcc.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
dihjatcc.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dihjatcc.g	⊢ 𝐺 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑃)
dihjatcc.dd	⊢ 𝐷 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑄)
dihjatcc.n	⊢ 𝑁 = (𝑎 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ◡(𝑎‘𝑑)))
dihjatcc.o	⊢ 0 = (𝑑 ∈ 𝑇 ↦ ( I ↾ 𝐵))
dihjatcc.d	⊢ 𝐽 = (𝑎 ∈ 𝐸, 𝑏 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ((𝑎‘𝑑) ∘ (𝑏‘𝑑))))

Assertion

Ref	Expression
dihjatcclem4	⊢ (𝜑 → (𝐼‘𝑉) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

Distinct variable groups:   ≤ ,𝑑   𝐴,𝑑   𝐵,𝑑   𝐶,𝑑   𝑎,𝑏,𝐸   𝐻,𝑑   𝑃,𝑑   𝑎,𝑑,𝐾,𝑏   𝑄,𝑑   𝑇,𝑎,𝑏,𝑑   𝑊,𝑎,𝑏,𝑑

Allowed substitution hints:   𝜑(𝑎,𝑏,𝑑)   𝐴(𝑎,𝑏)   𝐵(𝑎,𝑏)   𝐶(𝑎,𝑏)   𝐷(𝑎,𝑏,𝑑)   𝑃(𝑎,𝑏)   ⊕ (𝑎,𝑏,𝑑)   𝑄(𝑎,𝑏)   𝑅(𝑎,𝑏,𝑑)   𝑈(𝑎,𝑏,𝑑)   𝐸(𝑑)   𝐺(𝑎,𝑏,𝑑)   𝐻(𝑎,𝑏)   𝐼(𝑎,𝑏,𝑑)   𝐽(𝑎,𝑏,𝑑)   ∨ (𝑎,𝑏,𝑑)   ≤ (𝑎,𝑏)   ∧ (𝑎,𝑏,𝑑)   𝑁(𝑎,𝑏,𝑑)   𝑉(𝑎,𝑏,𝑑)   0 (𝑎,𝑏,𝑑)

Proof of Theorem dihjatcclem4

Dummy variables 𝑡 𝑓 𝑠 𝑔 ℎ 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dihjatcclem.k	. . 3 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		dihjatcclem.h	. . . 4 ⊢ 𝐻 = (LHyp‘𝐾)
3		dihjatcclem.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
4	2, 3	dihvalrel 41684	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑉))
5	1, 4	syl 17	. 2 ⊢ (𝜑 → Rel (𝐼‘𝑉))
6	1	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7		dihjatcclem.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
8		dihjatcclem.a	. . . . . . . . . . . 12 ⊢ 𝐴 = (Atoms‘𝐾)
9		dihjatcc.w	. . . . . . . . . . . 12 ⊢ 𝐶 = ((oc‘𝐾)‘𝑊)
10	7, 8, 2, 9	lhpocnel2 40424	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊))
11	1, 10	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊))
12		dihjatcclem.p	. . . . . . . . . 10 ⊢ (𝜑 → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
13		dihjatcc.t	. . . . . . . . . . 11 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
14		dihjatcc.g	. . . . . . . . . . 11 ⊢ 𝐺 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑃)
15	7, 8, 2, 13, 14	ltrniotacl 40984	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
16	1, 11, 12, 15	syl3anc 1374	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ 𝑇)
17		dihjatcclem.q	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
18		dihjatcc.dd	. . . . . . . . . . . 12 ⊢ 𝐷 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑄)
19	7, 8, 2, 13, 18	ltrniotacl 40984	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝐷 ∈ 𝑇)
20	1, 11, 17, 19	syl3anc 1374	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ 𝑇)
21	2, 13	ltrncnv 40551	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇) → ◡𝐷 ∈ 𝑇)
22	1, 20, 21	syl2anc 585	. . . . . . . . 9 ⊢ (𝜑 → ◡𝐷 ∈ 𝑇)
23	2, 13	ltrnco 41124	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇) → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
24	1, 16, 22, 23	syl3anc 1374	. . . . . . . 8 ⊢ (𝜑 → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
25	24	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
26		simprll 779	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
27		simprlr 780	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ 𝑉)
28		dihjatcclem.b	. . . . . . . . . 10 ⊢ 𝐵 = (Base‘𝐾)
29		dihjatcclem.j	. . . . . . . . . 10 ⊢ ∨ = (join‘𝐾)
30		dihjatcclem.m	. . . . . . . . . 10 ⊢ ∧ = (meet‘𝐾)
31		dihjatcclem.u	. . . . . . . . . 10 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
32		dihjatcclem.s	. . . . . . . . . 10 ⊢ ⊕ = (LSSum‘𝑈)
33		dihjatcclem.v	. . . . . . . . . 10 ⊢ 𝑉 = ((𝑃 ∨ 𝑄) ∧ 𝑊)
34		dihjatcc.r	. . . . . . . . . 10 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
35		dihjatcc.e	. . . . . . . . . 10 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
36	28, 7, 2, 29, 30, 8, 31, 32, 3, 33, 1, 12, 17, 9, 13, 34, 35, 14, 18	dihjatcclem3 41825	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
37	36	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
38	27, 37	breqtrrd 5128	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷)))
39	7, 2, 13, 34, 35	tendoex 41380	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺 ∘ ◡𝐷) ∈ 𝑇 ∧ 𝑓 ∈ 𝑇) ∧ (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷))) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
40	6, 25, 26, 38, 39	syl121anc 1378	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
41		df-rex 3063	. . . . . 6 ⊢ (∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓 ↔ ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
42	40, 41	sylib 218	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
43		eqidd 2738	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘𝐺) = (𝑡‘𝐺))
44		simprl 771	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑡 ∈ 𝐸)
45	1	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
46	12	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
47		fvex 6857	. . . . . . . . . . . 12 ⊢ (𝑡‘𝐺) ∈ V
48		vex 3446	. . . . . . . . . . . 12 ⊢ 𝑡 ∈ V
49	7, 8, 2, 9, 13, 35, 3, 14, 47, 48	dihopelvalcqat 41651	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
50	45, 46, 49	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
51	43, 44, 50	mpbir2and 714	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃))
52		eqidd 2738	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷))
53		dihjatcc.n	. . . . . . . . . . . 12 ⊢ 𝑁 = (𝑎 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ◡(𝑎‘𝑑)))
54	2, 13, 35, 53	tendoicl 41201	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑁‘𝑡) ∈ 𝐸)
55	45, 44, 54	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑁‘𝑡) ∈ 𝐸)
56	17	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
57		fvex 6857	. . . . . . . . . . . 12 ⊢ ((𝑁‘𝑡)‘𝐷) ∈ V
58		fvex 6857	. . . . . . . . . . . 12 ⊢ (𝑁‘𝑡) ∈ V
59	7, 8, 2, 9, 13, 35, 3, 18, 57, 58	dihopelvalcqat 41651	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
60	45, 56, 59	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
61	52, 55, 60	mpbir2and 714	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))
62	16	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐺 ∈ 𝑇)
63	22	ad2antrr 727	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡𝐷 ∈ 𝑇)
64	2, 13, 35	tendospdi1 41425	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
65	45, 44, 62, 63, 64	syl13anc 1375	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
66		simprr 773	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
67	20	ad2antrr 727	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐷 ∈ 𝑇)
68	53, 13	tendoi2 41200	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
69	44, 67, 68	syl2anc 585	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
70	2, 13, 35	tendocnv 41426	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
71	45, 44, 67, 70	syl3anc 1374	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
72	69, 71	eqtr2d 2773	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘◡𝐷) = ((𝑁‘𝑡)‘𝐷))
73	72	coeq2d 5821	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
74	65, 66, 73	3eqtr3d 2780	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
75		simplrr 778	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑠 = 0 )
76		dihjatcc.d	. . . . . . . . . . . 12 ⊢ 𝐽 = (𝑎 ∈ 𝐸, 𝑏 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ((𝑎‘𝑑) ∘ (𝑏‘𝑑))))
77		dihjatcc.o	. . . . . . . . . . . 12 ⊢ 0 = (𝑑 ∈ 𝑇 ↦ ( I ↾ 𝐵))
78	2, 13, 35, 53, 28, 76, 77	tendoipl2 41203	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
79	45, 44, 78	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
80	75, 79	eqtr4d 2775	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑠 = (𝑡𝐽(𝑁‘𝑡)))
81		opeq1 4831	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → ⟨𝑔, 𝑡⟩ = ⟨(𝑡‘𝐺), 𝑡⟩)
82	81	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃)))
83	82	anbi1d 632	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄))))
84		coeq1 5816	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑔 ∘ ℎ) = ((𝑡‘𝐺) ∘ ℎ))
85	84	eqeq2d 2748	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑓 = (𝑔 ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ℎ)))
86	85	anbi1d 632	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
87	83, 86	anbi12d 633	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝑡‘𝐺) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
88		opeq1 4831	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ⟨ℎ, 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩)
89	88	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)))
90	89	anbi2d 631	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄))))
91		coeq2 5817	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑡‘𝐺) ∘ ℎ) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
92	91	eqeq2d 2748	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷))))
93	92	anbi1d 632	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))))
94	90, 93	anbi12d 633	. . . . . . . . . . . 12 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)))))
95		opeq2 4832	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩)
96	95	eleq1d 2822	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)))
97	96	anbi2d 631	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))))
98		oveq2 7378	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑡𝐽𝑢) = (𝑡𝐽(𝑁‘𝑡)))
99	98	eqeq2d 2748	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑠 = (𝑡𝐽𝑢) ↔ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))
100	99	anbi2d 631	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))))
101	97, 100	anbi12d 633	. . . . . . . . . . . 12 ⊢ (𝑢 = (𝑁‘𝑡) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
102	87, 94, 101	syl3an9b 1437	. . . . . . . . . . 11 ⊢ ((𝑔 = (𝑡‘𝐺) ∧ ℎ = ((𝑁‘𝑡)‘𝐷) ∧ 𝑢 = (𝑁‘𝑡)) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
103	102	spc3egv 3559	. . . . . . . . . 10 ⊢ (((𝑡‘𝐺) ∈ V ∧ ((𝑁‘𝑡)‘𝐷) ∈ V ∧ (𝑁‘𝑡) ∈ V) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
104	47, 57, 58, 103	mp3an 1464	. . . . . . . . 9 ⊢ (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
105	51, 61, 74, 80, 104	syl22anc 839	. . . . . . . 8 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
106	105	ex 412	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ((𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
107	106	eximdv 1919	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
108		excom 2168	. . . . . 6 ⊢ (∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
109	107, 108	imbitrdi 251	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
110	42, 109	mpd 15	. . . 4 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
111	110	ex 412	. . 3 ⊢ (𝜑 → (((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 ) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
112	1	simpld 494	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ HL)
113	112	hllatd 39769	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ Lat)
114	12	simpld 494	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
115	17	simpld 494	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
116	28, 29, 8	hlatjcl 39772	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ 𝐵)
117	112, 114, 115, 116	syl3anc 1374	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ 𝐵)
118	1	simprd 495	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ 𝐻)
119	28, 2	lhpbase 40403	. . . . . . . . 9 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
120	118, 119	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐵)
121	28, 30	latmcl 18377	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
122	113, 117, 120, 121	syl3anc 1374	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
123	33, 122	eqeltrid 2841	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ 𝐵)
124	28, 7, 30	latmle2 18402	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
125	113, 117, 120, 124	syl3anc 1374	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
126	33, 125	eqbrtrid 5135	. . . . . 6 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
127		eqid 2737	. . . . . . 7 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
128	28, 7, 2, 3, 127	dihvalb 41642	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
129	1, 123, 126, 128	syl12anc 837	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
130	129	eleq2d 2823	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉)))
131	28, 7, 2, 13, 34, 77, 127	dibopelval3 41553	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
132	1, 123, 126, 131	syl12anc 837	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
133	130, 132	bitrd 279	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
134		eqid 2737	. . . 4 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
135	28, 8	atbase 39694	. . . . 5 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
136	114, 135	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ 𝐵)
137	28, 8	atbase 39694	. . . . 5 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
138	115, 137	syl 17	. . . 4 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
139	28, 2, 13, 35, 76, 31, 134, 32, 3, 1, 136, 138	dihopellsm 41660	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
140	111, 133, 139	3imtr4d 294	. 2 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) → ⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄))))
141	5, 140	relssdv 5747	1 ⊢ (𝜑 → (𝐼‘𝑉) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1542  ∃wex 1781   ∈ wcel 2114  ∃wrex 3062  Vcvv 3442   ⊆ wss 3903  ⟨cop 4588   class class class wbr 5100   ↦ cmpt 5181   I cid 5528  ^◡ccnv 5633   ↾ cres 5636   ∘ ccom 5638  Rel wrel 5639  ‘cfv 6502  ℩crio 7326  (class class class)co 7370   ∈ cmpo 7372  Basecbs 17150  lecple 17198  occoc 17199  joincjn 18248  meetcmee 18249  Latclat 18368  LSSumclsm 19580  LSubSpclss 20899  Atomscatm 39668  HLchlt 39755  LHypclh 40389  LTrncltrn 40506  trLctrl 40563  TEndoctendo 41157  DVecHcdvh 41483  DIsoBcdib 41543  DIsoHcdih 41633

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692  ax-cnex 11096  ax-resscn 11097  ax-1cn 11098  ax-icn 11099  ax-addcl 11100  ax-addrcl 11101  ax-mulcl 11102  ax-mulrcl 11103  ax-mulcom 11104  ax-addass 11105  ax-mulass 11106  ax-distr 11107  ax-i2m1 11108  ax-1ne0 11109  ax-1rid 11110  ax-rnegex 11111  ax-rrecex 11112  ax-cnre 11113  ax-pre-lttri 11114  ax-pre-lttrn 11115  ax-pre-ltadd 11116  ax-pre-mulgt0 11117  ax-riotaBAD 39358

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5529  df-eprel 5534  df-po 5542  df-so 5543  df-fr 5587  df-we 5589  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-pred 6269  df-ord 6330  df-on 6331  df-lim 6332  df-suc 6333  df-iota 6458  df-fun 6504  df-fn 6505  df-f 6506  df-f1 6507  df-fo 6508  df-f1o 6509  df-fv 6510  df-riota 7327  df-ov 7373  df-oprab 7374  df-mpo 7375  df-om 7821  df-1st 7945  df-2nd 7946  df-tpos 8180  df-undef 8227  df-frecs 8235  df-wrecs 8266  df-recs 8315  df-rdg 8353  df-1o 8409  df-er 8647  df-map 8779  df-en 8898  df-dom 8899  df-sdom 8900  df-fin 8901  df-pnf 11182  df-mnf 11183  df-xr 11184  df-ltxr 11185  df-le 11186  df-sub 11380  df-neg 11381  df-nn 12160  df-2 12222  df-3 12223  df-4 12224  df-5 12225  df-6 12226  df-n0 12416  df-z 12503  df-uz 12766  df-fz 13438  df-struct 17088  df-sets 17105  df-slot 17123  df-ndx 17135  df-base 17151  df-ress 17172  df-plusg 17204  df-mulr 17205  df-sca 17207  df-vsca 17208  df-0g 17375  df-proset 18231  df-poset 18250  df-plt 18265  df-lub 18281  df-glb 18282  df-join 18283  df-meet 18284  df-p0 18360  df-p1 18361  df-lat 18369  df-clat 18436  df-mgm 18579  df-sgrp 18658  df-mnd 18674  df-submnd 18723  df-grp 18883  df-minusg 18884  df-sbg 18885  df-subg 19070  df-cntz 19263  df-lsm 19582  df-cmn 19728  df-abl 19729  df-mgp 20093  df-rng 20105  df-ur 20134  df-ring 20187  df-oppr 20290  df-dvdsr 20310  df-unit 20311  df-invr 20341  df-dvr 20354  df-drng 20681  df-lmod 20830  df-lss 20900  df-lsp 20940  df-lvec 21072  df-oposet 39581  df-ol 39583  df-oml 39584  df-covers 39671  df-ats 39672  df-atl 39703  df-cvlat 39727  df-hlat 39756  df-llines 39903  df-lplanes 39904  df-lvols 39905  df-lines 39906  df-psubsp 39908  df-pmap 39909  df-padd 40201  df-lhyp 40393  df-laut 40394  df-ldil 40509  df-ltrn 40510  df-trl 40564  df-tendo 41160  df-edring 41162  df-disoa 41434  df-dvech 41484  df-dib 41544  df-dic 41578  df-dih 41634

This theorem is referenced by:  dihjatcc  41827