Theorem dihjatcclem4 38987

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 38845	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑉))
5	1, 4	syl 17	. 2 ⊢ (𝜑 → Rel (𝐼‘𝑉))
6	1	adantr 485	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7		dihjatcclem.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
8		dihjatcclem.a	. . . . . . . . . . . 12 ⊢ 𝐴 = (Atoms‘𝐾)
9		dihjatcc.w	. . . . . . . . . . . 12 ⊢ 𝐶 = ((oc‘𝐾)‘𝑊)
10	7, 8, 2, 9	lhpocnel2 37585	. . . . . . . . . . 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 38145	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
16	1, 11, 12, 15	syl3anc 1369	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ 𝑇)
17		dihjatcclem.q	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
18		dihjatcc.dd	. . . . . . . . . . . 12 ⊢ 𝐷 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑄)
19	7, 8, 2, 13, 18	ltrniotacl 38145	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝐷 ∈ 𝑇)
20	1, 11, 17, 19	syl3anc 1369	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ 𝑇)
21	2, 13	ltrncnv 37712	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇) → ◡𝐷 ∈ 𝑇)
22	1, 20, 21	syl2anc 588	. . . . . . . . 9 ⊢ (𝜑 → ◡𝐷 ∈ 𝑇)
23	2, 13	ltrnco 38285	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇) → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
24	1, 16, 22, 23	syl3anc 1369	. . . . . . . 8 ⊢ (𝜑 → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
25	24	adantr 485	. . . . . . 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 38986	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
37	36	adantr 485	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
38	27, 37	breqtrrd 5058	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷)))
39	7, 2, 13, 34, 35	tendoex 38541	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺 ∘ ◡𝐷) ∈ 𝑇 ∧ 𝑓 ∈ 𝑇) ∧ (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷))) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
40	6, 25, 26, 38, 39	syl121anc 1373	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
41		df-rex 3077	. . . . . 6 ⊢ (∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓 ↔ ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
42	40, 41	sylib 221	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
43		eqidd 2760	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘𝐺) = (𝑡‘𝐺))
44		simprl 771	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑡 ∈ 𝐸)
45	1	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
46	12	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
47		fvex 6669	. . . . . . . . . . . 12 ⊢ (𝑡‘𝐺) ∈ V
48		vex 3414	. . . . . . . . . . . 12 ⊢ 𝑡 ∈ V
49	7, 8, 2, 9, 13, 35, 3, 14, 47, 48	dihopelvalcqat 38812	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
50	45, 46, 49	syl2anc 588	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
51	43, 44, 50	mpbir2and 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃))
52		eqidd 2760	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷))
53		dihjatcc.n	. . . . . . . . . . . 12 ⊢ 𝑁 = (𝑎 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ◡(𝑎‘𝑑)))
54	2, 13, 35, 53	tendoicl 38362	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑁‘𝑡) ∈ 𝐸)
55	45, 44, 54	syl2anc 588	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑁‘𝑡) ∈ 𝐸)
56	17	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
57		fvex 6669	. . . . . . . . . . . 12 ⊢ ((𝑁‘𝑡)‘𝐷) ∈ V
58		fvex 6669	. . . . . . . . . . . 12 ⊢ (𝑁‘𝑡) ∈ V
59	7, 8, 2, 9, 13, 35, 3, 18, 57, 58	dihopelvalcqat 38812	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
60	45, 56, 59	syl2anc 588	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
61	52, 55, 60	mpbir2and 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))
62	16	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐺 ∈ 𝑇)
63	22	ad2antrr 726	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡𝐷 ∈ 𝑇)
64	2, 13, 35	tendospdi1 38586	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
65	45, 44, 62, 63, 64	syl13anc 1370	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
66		simprr 773	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
67	20	ad2antrr 726	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐷 ∈ 𝑇)
68	53, 13	tendoi2 38361	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
69	44, 67, 68	syl2anc 588	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
70	2, 13, 35	tendocnv 38587	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
71	45, 44, 67, 70	syl3anc 1369	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
72	69, 71	eqtr2d 2795	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘◡𝐷) = ((𝑁‘𝑡)‘𝐷))
73	72	coeq2d 5700	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
74	65, 66, 73	3eqtr3d 2802	. . . . . . . . 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 38364	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
79	45, 44, 78	syl2anc 588	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
80	75, 79	eqtr4d 2797	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑠 = (𝑡𝐽(𝑁‘𝑡)))
81		opeq1 4759	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → ⟨𝑔, 𝑡⟩ = ⟨(𝑡‘𝐺), 𝑡⟩)
82	81	eleq1d 2837	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃)))
83	82	anbi1d 633	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄))))
84		coeq1 5695	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑔 ∘ ℎ) = ((𝑡‘𝐺) ∘ ℎ))
85	84	eqeq2d 2770	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑓 = (𝑔 ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ℎ)))
86	85	anbi1d 633	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
87	83, 86	anbi12d 634	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝑡‘𝐺) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
88		opeq1 4759	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ⟨ℎ, 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩)
89	88	eleq1d 2837	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)))
90	89	anbi2d 632	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄))))
91		coeq2 5696	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑡‘𝐺) ∘ ℎ) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
92	91	eqeq2d 2770	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷))))
93	92	anbi1d 633	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))))
94	90, 93	anbi12d 634	. . . . . . . . . . . 12 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)))))
95		opeq2 4761	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩)
96	95	eleq1d 2837	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)))
97	96	anbi2d 632	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))))
98		oveq2 7156	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑡𝐽𝑢) = (𝑡𝐽(𝑁‘𝑡)))
99	98	eqeq2d 2770	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑠 = (𝑡𝐽𝑢) ↔ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))
100	99	anbi2d 632	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))))
101	97, 100	anbi12d 634	. . . . . . . . . . . 12 ⊢ (𝑢 = (𝑁‘𝑡) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
102	87, 94, 101	syl3an9b 1432	. . . . . . . . . . 11 ⊢ ((𝑔 = (𝑡‘𝐺) ∧ ℎ = ((𝑁‘𝑡)‘𝐷) ∧ 𝑢 = (𝑁‘𝑡)) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
103	102	spc3egv 3523	. . . . . . . . . 10 ⊢ (((𝑡‘𝐺) ∈ V ∧ ((𝑁‘𝑡)‘𝐷) ∈ V ∧ (𝑁‘𝑡) ∈ V) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
104	47, 57, 58, 103	mp3an 1459	. . . . . . . . 9 ⊢ (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
105	51, 61, 74, 80, 104	syl22anc 838	. . . . . . . 8 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
106	105	ex 417	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ((𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
107	106	eximdv 1919	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
108		excom 2167	. . . . . 6 ⊢ (∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
109	107, 108	syl6ib 254	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
110	42, 109	mpd 15	. . . 4 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
111	110	ex 417	. . 3 ⊢ (𝜑 → (((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 ) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
112	1	simpld 499	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ HL)
113	112	hllatd 36930	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ Lat)
114	12	simpld 499	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
115	17	simpld 499	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
116	28, 29, 8	hlatjcl 36933	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ 𝐵)
117	112, 114, 115, 116	syl3anc 1369	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ 𝐵)
118	1	simprd 500	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ 𝐻)
119	28, 2	lhpbase 37564	. . . . . . . . 9 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
120	118, 119	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐵)
121	28, 30	latmcl 17718	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
122	113, 117, 120, 121	syl3anc 1369	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
123	33, 122	eqeltrid 2857	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ 𝐵)
124	28, 7, 30	latmle2 17743	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
125	113, 117, 120, 124	syl3anc 1369	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
126	33, 125	eqbrtrid 5065	. . . . . 6 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
127		eqid 2759	. . . . . . 7 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
128	28, 7, 2, 3, 127	dihvalb 38803	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
129	1, 123, 126, 128	syl12anc 836	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
130	129	eleq2d 2838	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉)))
131	28, 7, 2, 13, 34, 77, 127	dibopelval3 38714	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
132	1, 123, 126, 131	syl12anc 836	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
133	130, 132	bitrd 282	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
134		eqid 2759	. . . 4 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
135	28, 8	atbase 36855	. . . . 5 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
136	114, 135	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ 𝐵)
137	28, 8	atbase 36855	. . . . 5 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
138	115, 137	syl 17	. . . 4 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
139	28, 2, 13, 35, 76, 31, 134, 32, 3, 1, 136, 138	dihopellsm 38821	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
140	111, 133, 139	3imtr4d 298	. 2 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) → ⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄))))
141	5, 140	relssdv 5628	1 ⊢ (𝜑 → (𝐼‘𝑉) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1539  ∃wex 1782   ∈ wcel 2112  ∃wrex 3072  Vcvv 3410   ⊆ wss 3859  ⟨cop 4526   class class class wbr 5030   ↦ cmpt 5110   I cid 5427  ^◡ccnv 5521   ↾ cres 5524   ∘ ccom 5526  Rel wrel 5527  ‘cfv 6333  ℩crio 7105  (class class class)co 7148   ∈ cmpo 7150  Basecbs 16531  lecple 16620  occoc 16621  joincjn 17610  meetcmee 17611  Latclat 17711  LSSumclsm 18816  LSubSpclss 19761  Atomscatm 36829  HLchlt 36916  LHypclh 37550  LTrncltrn 37667  trLctrl 37724  TEndoctendo 38318  DVecHcdvh 38644  DIsoBcdib 38704  DIsoHcdih 38794

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7457  ax-cnex 10621  ax-resscn 10622  ax-1cn 10623  ax-icn 10624  ax-addcl 10625  ax-addrcl 10626  ax-mulcl 10627  ax-mulrcl 10628  ax-mulcom 10629  ax-addass 10630  ax-mulass 10631  ax-distr 10632  ax-i2m1 10633  ax-1ne0 10634  ax-1rid 10635  ax-rnegex 10636  ax-rrecex 10637  ax-cnre 10638  ax-pre-lttri 10639  ax-pre-lttrn 10640  ax-pre-ltadd 10641  ax-pre-mulgt0 10642  ax-riotaBAD 36519

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2902  df-ne 2953  df-nel 3057  df-ral 3076  df-rex 3077  df-reu 3078  df-rmo 3079  df-rab 3080  df-v 3412  df-sbc 3698  df-csb 3807  df-dif 3862  df-un 3864  df-in 3866  df-ss 3876  df-pss 3878  df-nul 4227  df-if 4419  df-pw 4494  df-sn 4521  df-pr 4523  df-tp 4525  df-op 4527  df-uni 4797  df-int 4837  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5428  df-eprel 5433  df-po 5441  df-so 5442  df-fr 5481  df-we 5483  df-xp 5528  df-rel 5529  df-cnv 5530  df-co 5531  df-dm 5532  df-rn 5533  df-res 5534  df-ima 5535  df-pred 6124  df-ord 6170  df-on 6171  df-lim 6172  df-suc 6173  df-iota 6292  df-fun 6335  df-fn 6336  df-f 6337  df-f1 6338  df-fo 6339  df-f1o 6340  df-fv 6341  df-riota 7106  df-ov 7151  df-oprab 7152  df-mpo 7153  df-om 7578  df-1st 7691  df-2nd 7692  df-tpos 7900  df-undef 7947  df-wrecs 7955  df-recs 8016  df-rdg 8054  df-1o 8110  df-oadd 8114  df-er 8297  df-map 8416  df-en 8526  df-dom 8527  df-sdom 8528  df-fin 8529  df-pnf 10705  df-mnf 10706  df-xr 10707  df-ltxr 10708  df-le 10709  df-sub 10900  df-neg 10901  df-nn 11665  df-2 11727  df-3 11728  df-4 11729  df-5 11730  df-6 11731  df-n0 11925  df-z 12011  df-uz 12273  df-fz 12930  df-struct 16533  df-ndx 16534  df-slot 16535  df-base 16537  df-sets 16538  df-ress 16539  df-plusg 16626  df-mulr 16627  df-sca 16629  df-vsca 16630  df-0g 16763  df-proset 17594  df-poset 17612  df-plt 17624  df-lub 17640  df-glb 17641  df-join 17642  df-meet 17643  df-p0 17705  df-p1 17706  df-lat 17712  df-clat 17774  df-mgm 17908  df-sgrp 17957  df-mnd 17968  df-submnd 18013  df-grp 18162  df-minusg 18163  df-sbg 18164  df-subg 18333  df-cntz 18504  df-lsm 18818  df-cmn 18965  df-abl 18966  df-mgp 19298  df-ur 19310  df-ring 19357  df-oppr 19434  df-dvdsr 19452  df-unit 19453  df-invr 19483  df-dvr 19494  df-drng 19562  df-lmod 19694  df-lss 19762  df-lsp 19802  df-lvec 19933  df-oposet 36742  df-ol 36744  df-oml 36745  df-covers 36832  df-ats 36833  df-atl 36864  df-cvlat 36888  df-hlat 36917  df-llines 37064  df-lplanes 37065  df-lvols 37066  df-lines 37067  df-psubsp 37069  df-pmap 37070  df-padd 37362  df-lhyp 37554  df-laut 37555  df-ldil 37670  df-ltrn 37671  df-trl 37725  df-tendo 38321  df-edring 38323  df-disoa 38595  df-dvech 38645  df-dib 38705  df-dic 38739  df-dih 38795

This theorem is referenced by:  dihjatcc  38988