Theorem dihjatcclem4 39442

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 39300	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → Rel (𝐼‘𝑉))
5	1, 4	syl 17	. 2 ⊢ (𝜑 → Rel (𝐼‘𝑉))
6	1	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7		dihjatcclem.l	. . . . . . . . . . . 12 ⊢ ≤ = (le‘𝐾)
8		dihjatcclem.a	. . . . . . . . . . . 12 ⊢ 𝐴 = (Atoms‘𝐾)
9		dihjatcc.w	. . . . . . . . . . . 12 ⊢ 𝐶 = ((oc‘𝐾)‘𝑊)
10	7, 8, 2, 9	lhpocnel2 38040	. . . . . . . . . . 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 38600	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → 𝐺 ∈ 𝑇)
16	1, 11, 12, 15	syl3anc 1370	. . . . . . . . 9 ⊢ (𝜑 → 𝐺 ∈ 𝑇)
17		dihjatcclem.q	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
18		dihjatcc.dd	. . . . . . . . . . . 12 ⊢ 𝐷 = (℩𝑑 ∈ 𝑇 (𝑑‘𝐶) = 𝑄)
19	7, 8, 2, 13, 18	ltrniotacl 38600	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐶 ∈ 𝐴 ∧ ¬ 𝐶 ≤ 𝑊) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝐷 ∈ 𝑇)
20	1, 11, 17, 19	syl3anc 1370	. . . . . . . . . 10 ⊢ (𝜑 → 𝐷 ∈ 𝑇)
21	2, 13	ltrncnv 38167	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝑇) → ◡𝐷 ∈ 𝑇)
22	1, 20, 21	syl2anc 584	. . . . . . . . 9 ⊢ (𝜑 → ◡𝐷 ∈ 𝑇)
23	2, 13	ltrnco 38740	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇) → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
24	1, 16, 22, 23	syl3anc 1370	. . . . . . . 8 ⊢ (𝜑 → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
25	24	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝐺 ∘ ◡𝐷) ∈ 𝑇)
26		simprll 776	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → 𝑓 ∈ 𝑇)
27		simprlr 777	. . . . . . . 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 39441	. . . . . . . . 9 ⊢ (𝜑 → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
37	36	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘(𝐺 ∘ ◡𝐷)) = 𝑉)
38	27, 37	breqtrrd 5103	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷)))
39	7, 2, 13, 34, 35	tendoex 38996	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐺 ∘ ◡𝐷) ∈ 𝑇 ∧ 𝑓 ∈ 𝑇) ∧ (𝑅‘𝑓) ≤ (𝑅‘(𝐺 ∘ ◡𝐷))) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
40	6, 25, 26, 38, 39	syl121anc 1374	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
41		df-rex 3071	. . . . . 6 ⊢ (∃𝑡 ∈ 𝐸 (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓 ↔ ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
42	40, 41	sylib 217	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓))
43		eqidd 2740	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘𝐺) = (𝑡‘𝐺))
44		simprl 768	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑡 ∈ 𝐸)
45	1	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
46	12	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊))
47		fvex 6796	. . . . . . . . . . . 12 ⊢ (𝑡‘𝐺) ∈ V
48		vex 3437	. . . . . . . . . . . 12 ⊢ 𝑡 ∈ V
49	7, 8, 2, 9, 13, 35, 3, 14, 47, 48	dihopelvalcqat 39267	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
50	45, 46, 49	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ((𝑡‘𝐺) = (𝑡‘𝐺) ∧ 𝑡 ∈ 𝐸)))
51	43, 44, 50	mpbir2and 710	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃))
52		eqidd 2740	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷))
53		dihjatcc.n	. . . . . . . . . . . 12 ⊢ 𝑁 = (𝑎 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ◡(𝑎‘𝑑)))
54	2, 13, 35, 53	tendoicl 38817	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑁‘𝑡) ∈ 𝐸)
55	45, 44, 54	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑁‘𝑡) ∈ 𝐸)
56	17	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
57		fvex 6796	. . . . . . . . . . . 12 ⊢ ((𝑁‘𝑡)‘𝐷) ∈ V
58		fvex 6796	. . . . . . . . . . . 12 ⊢ (𝑁‘𝑡) ∈ V
59	7, 8, 2, 9, 13, 35, 3, 18, 57, 58	dihopelvalcqat 39267	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
60	45, 56, 59	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄) ↔ (((𝑁‘𝑡)‘𝐷) = ((𝑁‘𝑡)‘𝐷) ∧ (𝑁‘𝑡) ∈ 𝐸)))
61	52, 55, 60	mpbir2and 710	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))
62	16	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐺 ∈ 𝑇)
63	22	ad2antrr 723	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡𝐷 ∈ 𝑇)
64	2, 13, 35	tendospdi1 39041	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝐺 ∈ 𝑇 ∧ ◡𝐷 ∈ 𝑇)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
65	45, 44, 62, 63, 64	syl13anc 1371	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)))
66		simprr 770	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)
67	20	ad2antrr 723	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝐷 ∈ 𝑇)
68	53, 13	tendoi2 38816	. . . . . . . . . . . . 13 ⊢ ((𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
69	44, 67, 68	syl2anc 584	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑁‘𝑡)‘𝐷) = ◡(𝑡‘𝐷))
70	2, 13, 35	tendocnv 39042	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸 ∧ 𝐷 ∈ 𝑇) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
71	45, 44, 67, 70	syl3anc 1370	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ◡(𝑡‘𝐷) = (𝑡‘◡𝐷))
72	69, 71	eqtr2d 2780	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡‘◡𝐷) = ((𝑁‘𝑡)‘𝐷))
73	72	coeq2d 5774	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ((𝑡‘𝐺) ∘ (𝑡‘◡𝐷)) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
74	65, 66, 73	3eqtr3d 2787	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
75		simplrr 775	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑠 = 0 )
76		dihjatcc.d	. . . . . . . . . . . 12 ⊢ 𝐽 = (𝑎 ∈ 𝐸, 𝑏 ∈ 𝐸 ↦ (𝑑 ∈ 𝑇 ↦ ((𝑎‘𝑑) ∘ (𝑏‘𝑑))))
77		dihjatcc.o	. . . . . . . . . . . 12 ⊢ 0 = (𝑑 ∈ 𝑇 ↦ ( I ↾ 𝐵))
78	2, 13, 35, 53, 28, 76, 77	tendoipl2 38819	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑡 ∈ 𝐸) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
79	45, 44, 78	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → (𝑡𝐽(𝑁‘𝑡)) = 0 )
80	75, 79	eqtr4d 2782	. . . . . . . . 9 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → 𝑠 = (𝑡𝐽(𝑁‘𝑡)))
81		opeq1 4805	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → ⟨𝑔, 𝑡⟩ = ⟨(𝑡‘𝐺), 𝑡⟩)
82	81	eleq1d 2824	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ↔ ⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃)))
83	82	anbi1d 630	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄))))
84		coeq1 5769	. . . . . . . . . . . . . . 15 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑔 ∘ ℎ) = ((𝑡‘𝐺) ∘ ℎ))
85	84	eqeq2d 2750	. . . . . . . . . . . . . 14 ⊢ (𝑔 = (𝑡‘𝐺) → (𝑓 = (𝑔 ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ℎ)))
86	85	anbi1d 630	. . . . . . . . . . . . 13 ⊢ (𝑔 = (𝑡‘𝐺) → ((𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
87	83, 86	anbi12d 631	. . . . . . . . . . . 12 ⊢ (𝑔 = (𝑡‘𝐺) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
88		opeq1 4805	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ⟨ℎ, 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩)
89	88	eleq1d 2824	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)))
90	89	anbi2d 629	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄))))
91		coeq2 5770	. . . . . . . . . . . . . . 15 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑡‘𝐺) ∘ ℎ) = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)))
92	91	eqeq2d 2750	. . . . . . . . . . . . . 14 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ↔ 𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷))))
93	92	anbi1d 630	. . . . . . . . . . . . 13 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → ((𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))))
94	90, 93	anbi12d 631	. . . . . . . . . . . 12 ⊢ (ℎ = ((𝑁‘𝑡)‘𝐷) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)))))
95		opeq2 4806	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ = ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩)
96	95	eleq1d 2824	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄) ↔ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)))
97	96	anbi2d 629	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ↔ (⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄))))
98		oveq2 7292	. . . . . . . . . . . . . . 15 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑡𝐽𝑢) = (𝑡𝐽(𝑁‘𝑡)))
99	98	eqeq2d 2750	. . . . . . . . . . . . . 14 ⊢ (𝑢 = (𝑁‘𝑡) → (𝑠 = (𝑡𝐽𝑢) ↔ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))
100	99	anbi2d 629	. . . . . . . . . . . . 13 ⊢ (𝑢 = (𝑁‘𝑡) → ((𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢)) ↔ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))))
101	97, 100	anbi12d 631	. . . . . . . . . . . 12 ⊢ (𝑢 = (𝑁‘𝑡) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
102	87, 94, 101	syl3an9b 1433	. . . . . . . . . . 11 ⊢ ((𝑔 = (𝑡‘𝐺) ∧ ℎ = ((𝑁‘𝑡)‘𝐷) ∧ 𝑢 = (𝑁‘𝑡)) → (((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡))))))
103	102	spc3egv 3543	. . . . . . . . . 10 ⊢ (((𝑡‘𝐺) ∈ V ∧ ((𝑁‘𝑡)‘𝐷) ∈ V ∧ (𝑁‘𝑡) ∈ V) → (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
104	47, 57, 58, 103	mp3an 1460	. . . . . . . . 9 ⊢ (((⟨(𝑡‘𝐺), 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨((𝑁‘𝑡)‘𝐷), (𝑁‘𝑡)⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = ((𝑡‘𝐺) ∘ ((𝑁‘𝑡)‘𝐷)) ∧ 𝑠 = (𝑡𝐽(𝑁‘𝑡)))) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
105	51, 61, 74, 80, 104	syl22anc 836	. . . . . . . 8 ⊢ (((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) ∧ (𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓)) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
106	105	ex 413	. . . . . . 7 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ((𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
107	106	eximdv 1921	. . . . . 6 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
108		excom 2163	. . . . . 6 ⊢ (∃𝑡∃𝑔∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
109	107, 108	syl6ib 250	. . . . 5 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → (∃𝑡(𝑡 ∈ 𝐸 ∧ (𝑡‘(𝐺 ∘ ◡𝐷)) = 𝑓) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
110	42, 109	mpd 15	. . . 4 ⊢ ((𝜑 ∧ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢))))
111	110	ex 413	. . 3 ⊢ (𝜑 → (((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 ) → ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
112	1	simpld 495	. . . . . . . . 9 ⊢ (𝜑 → 𝐾 ∈ HL)
113	112	hllatd 37385	. . . . . . . 8 ⊢ (𝜑 → 𝐾 ∈ Lat)
114	12	simpld 495	. . . . . . . . 9 ⊢ (𝜑 → 𝑃 ∈ 𝐴)
115	17	simpld 495	. . . . . . . . 9 ⊢ (𝜑 → 𝑄 ∈ 𝐴)
116	28, 29, 8	hlatjcl 37388	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑃 ∈ 𝐴 ∧ 𝑄 ∈ 𝐴) → (𝑃 ∨ 𝑄) ∈ 𝐵)
117	112, 114, 115, 116	syl3anc 1370	. . . . . . . 8 ⊢ (𝜑 → (𝑃 ∨ 𝑄) ∈ 𝐵)
118	1	simprd 496	. . . . . . . . 9 ⊢ (𝜑 → 𝑊 ∈ 𝐻)
119	28, 2	lhpbase 38019	. . . . . . . . 9 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
120	118, 119	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝑊 ∈ 𝐵)
121	28, 30	latmcl 18167	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
122	113, 117, 120, 121	syl3anc 1370	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ∈ 𝐵)
123	33, 122	eqeltrid 2844	. . . . . 6 ⊢ (𝜑 → 𝑉 ∈ 𝐵)
124	28, 7, 30	latmle2 18192	. . . . . . . 8 ⊢ ((𝐾 ∈ Lat ∧ (𝑃 ∨ 𝑄) ∈ 𝐵 ∧ 𝑊 ∈ 𝐵) → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
125	113, 117, 120, 124	syl3anc 1370	. . . . . . 7 ⊢ (𝜑 → ((𝑃 ∨ 𝑄) ∧ 𝑊) ≤ 𝑊)
126	33, 125	eqbrtrid 5110	. . . . . 6 ⊢ (𝜑 → 𝑉 ≤ 𝑊)
127		eqid 2739	. . . . . . 7 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
128	28, 7, 2, 3, 127	dihvalb 39258	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
129	1, 123, 126, 128	syl12anc 834	. . . . 5 ⊢ (𝜑 → (𝐼‘𝑉) = (((DIsoB‘𝐾)‘𝑊)‘𝑉))
130	129	eleq2d 2825	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉)))
131	28, 7, 2, 13, 34, 77, 127	dibopelval3 39169	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑉 ∈ 𝐵 ∧ 𝑉 ≤ 𝑊)) → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
132	1, 123, 126, 131	syl12anc 834	. . . 4 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (((DIsoB‘𝐾)‘𝑊)‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
133	130, 132	bitrd 278	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) ↔ ((𝑓 ∈ 𝑇 ∧ (𝑅‘𝑓) ≤ 𝑉) ∧ 𝑠 = 0 )))
134		eqid 2739	. . . 4 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
135	28, 8	atbase 37310	. . . . 5 ⊢ (𝑃 ∈ 𝐴 → 𝑃 ∈ 𝐵)
136	114, 135	syl 17	. . . 4 ⊢ (𝜑 → 𝑃 ∈ 𝐵)
137	28, 8	atbase 37310	. . . . 5 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ 𝐵)
138	115, 137	syl 17	. . . 4 ⊢ (𝜑 → 𝑄 ∈ 𝐵)
139	28, 2, 13, 35, 76, 31, 134, 32, 3, 1, 136, 138	dihopellsm 39276	. . 3 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)) ↔ ∃𝑔∃𝑡∃ℎ∃𝑢((⟨𝑔, 𝑡⟩ ∈ (𝐼‘𝑃) ∧ ⟨ℎ, 𝑢⟩ ∈ (𝐼‘𝑄)) ∧ (𝑓 = (𝑔 ∘ ℎ) ∧ 𝑠 = (𝑡𝐽𝑢)))))
140	111, 133, 139	3imtr4d 294	. 2 ⊢ (𝜑 → (⟨𝑓, 𝑠⟩ ∈ (𝐼‘𝑉) → ⟨𝑓, 𝑠⟩ ∈ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄))))
141	5, 140	relssdv 5700	1 ⊢ (𝜑 → (𝐼‘𝑉) ⊆ ((𝐼‘𝑃) ⊕ (𝐼‘𝑄)))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1539  ∃wex 1782   ∈ wcel 2107  ∃wrex 3066  Vcvv 3433   ⊆ wss 3888  ⟨cop 4568   class class class wbr 5075   ↦ cmpt 5158   I cid 5489  ^◡ccnv 5589   ↾ cres 5592   ∘ ccom 5594  Rel wrel 5595  ‘cfv 6437  ℩crio 7240  (class class class)co 7284   ∈ cmpo 7286  Basecbs 16921  lecple 16978  occoc 16979  joincjn 18038  meetcmee 18039  Latclat 18158  LSSumclsm 19248  LSubSpclss 20202  Atomscatm 37284  HLchlt 37371  LHypclh 38005  LTrncltrn 38122  trLctrl 38179  TEndoctendo 38773  DVecHcdvh 39099  DIsoBcdib 39159  DIsoHcdih 39249

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 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-rep 5210  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-cnex 10936  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-riotaBAD 36974

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-rmo 3072  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4841  df-int 4881  df-iun 4927  df-iin 4928  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6206  df-ord 6273  df-on 6274  df-lim 6275  df-suc 6276  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-om 7722  df-1st 7840  df-2nd 7841  df-tpos 8051  df-undef 8098  df-frecs 8106  df-wrecs 8137  df-recs 8211  df-rdg 8250  df-1o 8306  df-er 8507  df-map 8626  df-en 8743  df-dom 8744  df-sdom 8745  df-fin 8746  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217  df-nn 11983  df-2 12045  df-3 12046  df-4 12047  df-5 12048  df-6 12049  df-n0 12243  df-z 12329  df-uz 12592  df-fz 13249  df-struct 16857  df-sets 16874  df-slot 16892  df-ndx 16904  df-base 16922  df-ress 16951  df-plusg 16984  df-mulr 16985  df-sca 16987  df-vsca 16988  df-0g 17161  df-proset 18022  df-poset 18040  df-plt 18057  df-lub 18073  df-glb 18074  df-join 18075  df-meet 18076  df-p0 18152  df-p1 18153  df-lat 18159  df-clat 18226  df-mgm 18335  df-sgrp 18384  df-mnd 18395  df-submnd 18440  df-grp 18589  df-minusg 18590  df-sbg 18591  df-subg 18761  df-cntz 18932  df-lsm 19250  df-cmn 19397  df-abl 19398  df-mgp 19730  df-ur 19747  df-ring 19794  df-oppr 19871  df-dvdsr 19892  df-unit 19893  df-invr 19923  df-dvr 19934  df-drng 20002  df-lmod 20134  df-lss 20203  df-lsp 20243  df-lvec 20374  df-oposet 37197  df-ol 37199  df-oml 37200  df-covers 37287  df-ats 37288  df-atl 37319  df-cvlat 37343  df-hlat 37372  df-llines 37519  df-lplanes 37520  df-lvols 37521  df-lines 37522  df-psubsp 37524  df-pmap 37525  df-padd 37817  df-lhyp 38009  df-laut 38010  df-ldil 38125  df-ltrn 38126  df-trl 38180  df-tendo 38776  df-edring 38778  df-disoa 39050  df-dvech 39100  df-dib 39160  df-dic 39194  df-dih 39250

This theorem is referenced by:  dihjatcc  39443