Theorem dih1dimatlem 38467

Description: Lemma for dih1dimat 38468. (Contributed by NM, 10-Apr-2014.)

Hypotheses

Ref	Expression
dih1dimat.h	⊢ 𝐻 = (LHyp‘𝐾)
dih1dimat.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
dih1dimat.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dih1dimat.a	⊢ 𝐴 = (LSAtoms‘𝑈)
dih1dimat.b	⊢ 𝐵 = (Base‘𝐾)
dih1dimat.l	⊢ ≤ = (le‘𝐾)
dih1dimat.c	⊢ 𝐶 = (Atoms‘𝐾)
dih1dimat.p	⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
dih1dimat.t	⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
dih1dimat.r	⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
dih1dimat.e	⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
dih1dimat.o	⊢ 𝑂 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
dih1dimat.d	⊢ 𝐹 = (Scalar‘𝑈)
dih1dimat.j	⊢ 𝐽 = (invr‘𝐹)
dih1dimat.v	⊢ 𝑉 = (Base‘𝑈)
dih1dimat.m	⊢ · = ( ·𝑠 ‘𝑈)
dih1dimat.s	⊢ 𝑆 = (LSubSp‘𝑈)
dih1dimat.n	⊢ 𝑁 = (LSpan‘𝑈)
dih1dimat.z	⊢ 0 = (0g‘𝑈)
dih1dimat.g	⊢ 𝐺 = (℩ℎ ∈ 𝑇 (ℎ‘𝑃) = (((𝐽‘𝑠)‘𝑓)‘𝑃))

Assertion

Ref	Expression
dih1dimatlem	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝐴) → 𝐷 ∈ ran 𝐼)

Distinct variable groups:   ≤ ,ℎ   𝐵,ℎ   𝑓,𝑠,𝐸   𝐶,ℎ   ℎ,𝐽   𝑓,𝑁,𝑠   𝑓,ℎ,𝐾,𝑠   𝑇,𝑓,ℎ,𝑠   𝑈,𝑓,ℎ,𝑠   𝑓,𝐻,ℎ,𝑠   𝑓,𝑉,𝑠   𝑓,𝑊,ℎ,𝑠   𝑓,𝐼,𝑠   𝑃,ℎ

Allowed substitution hints:   𝐴(𝑓,ℎ,𝑠)   𝐵(𝑓,𝑠)   𝐶(𝑓,𝑠)   𝐷(𝑓,ℎ,𝑠)   𝑃(𝑓,𝑠)   𝑅(𝑓,ℎ,𝑠)   𝑆(𝑓,ℎ,𝑠)   · (𝑓,ℎ,𝑠)   𝐸(ℎ)   𝐹(𝑓,ℎ,𝑠)   𝐺(𝑓,ℎ,𝑠)   𝐼(ℎ)   𝐽(𝑓,𝑠)   ≤ (𝑓,𝑠)   𝑁(ℎ)   𝑂(𝑓,ℎ,𝑠)   𝑉(ℎ)   0 (𝑓,ℎ,𝑠)

Proof of Theorem dih1dimatlem

Dummy variables 𝑣 𝑔 𝑖 𝑝 𝑟 𝑡 𝑢 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		dih1dimat.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
2		dih1dimat.u	. . . . 5 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
3		id 22	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
4	1, 2, 3	dvhlvec 38247	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑈 ∈ LVec)
5		dih1dimat.v	. . . . 5 ⊢ 𝑉 = (Base‘𝑈)
6		dih1dimat.n	. . . . 5 ⊢ 𝑁 = (LSpan‘𝑈)
7		dih1dimat.z	. . . . 5 ⊢ 0 = (0g‘𝑈)
8		dih1dimat.a	. . . . 5 ⊢ 𝐴 = (LSAtoms‘𝑈)
9	5, 6, 7, 8	islsat 36129	. . . 4 ⊢ (𝑈 ∈ LVec → (𝐷 ∈ 𝐴 ↔ ∃𝑣 ∈ (𝑉 ∖ { 0 })𝐷 = (𝑁‘{𝑣})))
10	4, 9	syl 17	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝐷 ∈ 𝐴 ↔ ∃𝑣 ∈ (𝑉 ∖ { 0 })𝐷 = (𝑁‘{𝑣})))
11	10	biimpa 479	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝐴) → ∃𝑣 ∈ (𝑉 ∖ { 0 })𝐷 = (𝑁‘{𝑣}))
12		eldifi 4105	. . . . . . . 8 ⊢ (𝑣 ∈ (𝑉 ∖ { 0 }) → 𝑣 ∈ 𝑉)
13		dih1dimat.t	. . . . . . . . . 10 ⊢ 𝑇 = ((LTrn‘𝐾)‘𝑊)
14		dih1dimat.e	. . . . . . . . . 10 ⊢ 𝐸 = ((TEndo‘𝐾)‘𝑊)
15	1, 13, 14, 2, 5	dvhvbase 38225	. . . . . . . . 9 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝑉 = (𝑇 × 𝐸))
16	15	eleq2d 2900	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑣 ∈ 𝑉 ↔ 𝑣 ∈ (𝑇 × 𝐸)))
17	12, 16	syl5ib 246	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑣 ∈ (𝑉 ∖ { 0 }) → 𝑣 ∈ (𝑇 × 𝐸)))
18	17	imp 409	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑣 ∈ (𝑉 ∖ { 0 })) → 𝑣 ∈ (𝑇 × 𝐸))
19		simpr 487	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → 𝑠 = 𝑂)
20	19	opeq2d 4812	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → ⟨𝑓, 𝑠⟩ = ⟨𝑓, 𝑂⟩)
21	20	sneqd 4581	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → {⟨𝑓, 𝑠⟩} = {⟨𝑓, 𝑂⟩})
22	21	fveq2d 6676	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → (𝑁‘{⟨𝑓, 𝑠⟩}) = (𝑁‘{⟨𝑓, 𝑂⟩}))
23		simpl 485	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
24		dih1dimat.b	. . . . . . . . . . . . . . . . 17 ⊢ 𝐵 = (Base‘𝐾)
25		dih1dimat.r	. . . . . . . . . . . . . . . . 17 ⊢ 𝑅 = ((trL‘𝐾)‘𝑊)
26	24, 1, 13, 25	trlcl 37302	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ∈ 𝐵)
27		dih1dimat.l	. . . . . . . . . . . . . . . . 17 ⊢ ≤ = (le‘𝐾)
28	27, 1, 13, 25	trlle 37322	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑅‘𝑓) ≤ 𝑊)
29		dih1dimat.i	. . . . . . . . . . . . . . . . 17 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
30		eqid 2823	. . . . . . . . . . . . . . . . 17 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
31	24, 27, 1, 29, 30	dihvalb 38375	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝑅‘𝑓) ∈ 𝐵 ∧ (𝑅‘𝑓) ≤ 𝑊)) → (𝐼‘(𝑅‘𝑓)) = (((DIsoB‘𝐾)‘𝑊)‘(𝑅‘𝑓)))
32	23, 26, 28, 31	syl12anc 834	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝐼‘(𝑅‘𝑓)) = (((DIsoB‘𝐾)‘𝑊)‘(𝑅‘𝑓)))
33		dih1dimat.o	. . . . . . . . . . . . . . . 16 ⊢ 𝑂 = (ℎ ∈ 𝑇 ↦ ( I ↾ 𝐵))
34	24, 1, 13, 25, 33, 2, 30, 6	dib1dim2 38306	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (((DIsoB‘𝐾)‘𝑊)‘(𝑅‘𝑓)) = (𝑁‘{⟨𝑓, 𝑂⟩}))
35	32, 34	eqtr2d 2859	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑁‘{⟨𝑓, 𝑂⟩}) = (𝐼‘(𝑅‘𝑓)))
36		dih1dimat.s	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑆 = (LSubSp‘𝑈)
37	24, 1, 29, 2, 36	dihf11 38405	. . . . . . . . . . . . . . . . 17 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼:𝐵–1-1→𝑆)
38	37	adantr 483	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝐼:𝐵–1-1→𝑆)
39		f1fn 6578	. . . . . . . . . . . . . . . 16 ⊢ (𝐼:𝐵–1-1→𝑆 → 𝐼 Fn 𝐵)
40	38, 39	syl 17	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → 𝐼 Fn 𝐵)
41		fnfvelrn 6850	. . . . . . . . . . . . . . 15 ⊢ ((𝐼 Fn 𝐵 ∧ (𝑅‘𝑓) ∈ 𝐵) → (𝐼‘(𝑅‘𝑓)) ∈ ran 𝐼)
42	40, 26, 41	syl2anc 586	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝐼‘(𝑅‘𝑓)) ∈ ran 𝐼)
43	35, 42	eqeltrd 2915	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑓 ∈ 𝑇) → (𝑁‘{⟨𝑓, 𝑂⟩}) ∈ ran 𝐼)
44	43	adantrr 715	. . . . . . . . . . . 12 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) → (𝑁‘{⟨𝑓, 𝑂⟩}) ∈ ran 𝐼)
45	44	adantr 483	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → (𝑁‘{⟨𝑓, 𝑂⟩}) ∈ ran 𝐼)
46	22, 45	eqeltrd 2915	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 = 𝑂) → (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼)
47		simpll 765	. . . . . . . . . . . . . . . . . 18 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
48		dih1dimat.d	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐹 = (Scalar‘𝑈)
49		eqid 2823	. . . . . . . . . . . . . . . . . . 19 ⊢ (Base‘𝐹) = (Base‘𝐹)
50	1, 14, 2, 48, 49	dvhbase 38221	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (Base‘𝐹) = 𝐸)
51	47, 50	syl 17	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (Base‘𝐹) = 𝐸)
52	51	rexeqdv 3418	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) ↔ ∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)))
53		simplll 773	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
54		simpr 487	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → 𝑡 ∈ 𝐸)
55		opelxpi 5594	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) → ⟨𝑓, 𝑠⟩ ∈ (𝑇 × 𝐸))
56	55	ad3antlr 729	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → ⟨𝑓, 𝑠⟩ ∈ (𝑇 × 𝐸))
57		dih1dimat.m	. . . . . . . . . . . . . . . . . . . . 21 ⊢ · = ( ·𝑠 ‘𝑈)
58	1, 13, 14, 2, 57	dvhvscacl 38241	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ ⟨𝑓, 𝑠⟩ ∈ (𝑇 × 𝐸))) → (𝑡 · ⟨𝑓, 𝑠⟩) ∈ (𝑇 × 𝐸))
59	53, 54, 56, 58	syl12anc 834	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → (𝑡 · ⟨𝑓, 𝑠⟩) ∈ (𝑇 × 𝐸))
60		eleq1a 2910	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑡 · ⟨𝑓, 𝑠⟩) ∈ (𝑇 × 𝐸) → (𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) → 𝑢 ∈ (𝑇 × 𝐸)))
61	59, 60	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → (𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) → 𝑢 ∈ (𝑇 × 𝐸)))
62	61	rexlimdva 3286	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) → 𝑢 ∈ (𝑇 × 𝐸)))
63	62	pm4.71rd 565	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) ↔ (𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩))))
64		simplrl 775	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑓 ∈ 𝑇)
65	64	adantr 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → 𝑓 ∈ 𝑇)
66		simplrr 776	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑠 ∈ 𝐸)
67	66	adantr 483	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → 𝑠 ∈ 𝐸)
68	1, 13, 14, 2, 57	dvhopvsca 38240	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑡 ∈ 𝐸 ∧ 𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) → (𝑡 · ⟨𝑓, 𝑠⟩) = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)
69	53, 54, 65, 67, 68	syl13anc 1368	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → (𝑡 · ⟨𝑓, 𝑠⟩) = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)
70	69	eqeq2d 2834	. . . . . . . . . . . . . . . . . 18 ⊢ (((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) ∧ 𝑡 ∈ 𝐸) → (𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) ↔ 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩))
71	70	rexbidva 3298	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) ↔ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩))
72	71	anbi2d 630	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)) ↔ (𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)))
73	52, 63, 72	3bitrd 307	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩) ↔ (𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)))
74	73	abbidv 2887	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → {𝑢 ∣ ∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)} = {𝑢 ∣ (𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)})
75		df-rab 3149	. . . . . . . . . . . . . 14 ⊢ {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} = {𝑢 ∣ (𝑢 ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)}
76	74, 75	syl6eqr 2876	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → {𝑢 ∣ ∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)} = {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩})
77		ssrab2 4058	. . . . . . . . . . . . . . 15 ⊢ {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} ⊆ (𝑇 × 𝐸)
78		relxp 5575	. . . . . . . . . . . . . . 15 ⊢ Rel (𝑇 × 𝐸)
79		relss 5658	. . . . . . . . . . . . . . 15 ⊢ ({𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} ⊆ (𝑇 × 𝐸) → (Rel (𝑇 × 𝐸) → Rel {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩}))
80	77, 78, 79	mp2 9	. . . . . . . . . . . . . 14 ⊢ Rel {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩}
81		relopab 5698	. . . . . . . . . . . . . 14 ⊢ Rel {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)}
82		vex 3499	. . . . . . . . . . . . . . . 16 ⊢ 𝑖 ∈ V
83		vex 3499	. . . . . . . . . . . . . . . 16 ⊢ 𝑝 ∈ V
84		eqeq1 2827	. . . . . . . . . . . . . . . . 17 ⊢ (𝑔 = 𝑖 → (𝑔 = (𝑟‘𝐺) ↔ 𝑖 = (𝑟‘𝐺)))
85	84	anbi1d 631	. . . . . . . . . . . . . . . 16 ⊢ (𝑔 = 𝑖 → ((𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸) ↔ (𝑖 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)))
86		fveq1 6671	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑟 = 𝑝 → (𝑟‘𝐺) = (𝑝‘𝐺))
87	86	eqeq2d 2834	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = 𝑝 → (𝑖 = (𝑟‘𝐺) ↔ 𝑖 = (𝑝‘𝐺)))
88		eleq1w 2897	. . . . . . . . . . . . . . . . 17 ⊢ (𝑟 = 𝑝 → (𝑟 ∈ 𝐸 ↔ 𝑝 ∈ 𝐸))
89	87, 88	anbi12d 632	. . . . . . . . . . . . . . . 16 ⊢ (𝑟 = 𝑝 → ((𝑖 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸) ↔ (𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸)))
90	82, 83, 85, 89	opelopab 5431	. . . . . . . . . . . . . . 15 ⊢ (⟨𝑖, 𝑝⟩ ∈ {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)} ↔ (𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸))
91		dih1dimat.c	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐶 = (Atoms‘𝐾)
92		dih1dimat.p	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝑃 = ((oc‘𝐾)‘𝑊)
93		dih1dimat.j	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐽 = (invr‘𝐹)
94		dih1dimat.g	. . . . . . . . . . . . . . . . . . 19 ⊢ 𝐺 = (℩ℎ ∈ 𝑇 (ℎ‘𝑃) = (((𝐽‘𝑠)‘𝑓)‘𝑃))
95	1, 2, 29, 8, 24, 27, 91, 92, 13, 25, 14, 33, 48, 93, 5, 57, 36, 6, 7, 94	dih1dimatlem0 38466	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸) ∧ 𝑠 ≠ 𝑂) → ((𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸) ↔ ((𝑖 ∈ 𝑇 ∧ 𝑝 ∈ 𝐸) ∧ ∃𝑡 ∈ 𝐸 (𝑖 = (𝑡‘𝑓) ∧ 𝑝 = (𝑡 ∘ 𝑠)))))
96	95	3expa 1114	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸) ↔ ((𝑖 ∈ 𝑇 ∧ 𝑝 ∈ 𝐸) ∧ ∃𝑡 ∈ 𝐸 (𝑖 = (𝑡‘𝑓) ∧ 𝑝 = (𝑡 ∘ 𝑠)))))
97		opelxp 5593	. . . . . . . . . . . . . . . . . 18 ⊢ (⟨𝑖, 𝑝⟩ ∈ (𝑇 × 𝐸) ↔ (𝑖 ∈ 𝑇 ∧ 𝑝 ∈ 𝐸))
98	82, 83	opth 5370	. . . . . . . . . . . . . . . . . . 19 ⊢ (⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩ ↔ (𝑖 = (𝑡‘𝑓) ∧ 𝑝 = (𝑡 ∘ 𝑠)))
99	98	rexbii 3249	. . . . . . . . . . . . . . . . . 18 ⊢ (∃𝑡 ∈ 𝐸 ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩ ↔ ∃𝑡 ∈ 𝐸 (𝑖 = (𝑡‘𝑓) ∧ 𝑝 = (𝑡 ∘ 𝑠)))
100	97, 99	anbi12i 628	. . . . . . . . . . . . . . . . 17 ⊢ ((⟨𝑖, 𝑝⟩ ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩) ↔ ((𝑖 ∈ 𝑇 ∧ 𝑝 ∈ 𝐸) ∧ ∃𝑡 ∈ 𝐸 (𝑖 = (𝑡‘𝑓) ∧ 𝑝 = (𝑡 ∘ 𝑠))))
101	96, 100	syl6bbr 291	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸) ↔ (⟨𝑖, 𝑝⟩ ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩)))
102		eqeq1 2827	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑢 = ⟨𝑖, 𝑝⟩ → (𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩ ↔ ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩))
103	102	rexbidv 3299	. . . . . . . . . . . . . . . . 17 ⊢ (𝑢 = ⟨𝑖, 𝑝⟩ → (∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩ ↔ ∃𝑡 ∈ 𝐸 ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩))
104	103	elrab 3682	. . . . . . . . . . . . . . . 16 ⊢ (⟨𝑖, 𝑝⟩ ∈ {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} ↔ (⟨𝑖, 𝑝⟩ ∈ (𝑇 × 𝐸) ∧ ∃𝑡 ∈ 𝐸 ⟨𝑖, 𝑝⟩ = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩))
105	101, 104	syl6bbr 291	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((𝑖 = (𝑝‘𝐺) ∧ 𝑝 ∈ 𝐸) ↔ ⟨𝑖, 𝑝⟩ ∈ {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩}))
106	90, 105	syl5rbb 286	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (⟨𝑖, 𝑝⟩ ∈ {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} ↔ ⟨𝑖, 𝑝⟩ ∈ {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)}))
107	80, 81, 106	eqrelrdv 5667	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → {𝑢 ∈ (𝑇 × 𝐸) ∣ ∃𝑡 ∈ 𝐸 𝑢 = ⟨(𝑡‘𝑓), (𝑡 ∘ 𝑠)⟩} = {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)})
108	76, 107	eqtrd 2858	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → {𝑢 ∣ ∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)} = {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)})
109	1, 2, 47	dvhlmod 38248	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑈 ∈ LMod)
110	1, 13, 14, 2, 5	dvhelvbasei 38226	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) → ⟨𝑓, 𝑠⟩ ∈ 𝑉)
111	110	adantr 483	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ⟨𝑓, 𝑠⟩ ∈ 𝑉)
112	48, 49, 5, 57, 6	lspsn 19776	. . . . . . . . . . . . 13 ⊢ ((𝑈 ∈ LMod ∧ ⟨𝑓, 𝑠⟩ ∈ 𝑉) → (𝑁‘{⟨𝑓, 𝑠⟩}) = {𝑢 ∣ ∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)})
113	109, 111, 112	syl2anc 586	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝑁‘{⟨𝑓, 𝑠⟩}) = {𝑢 ∣ ∃𝑡 ∈ (Base‘𝐹)𝑢 = (𝑡 · ⟨𝑓, 𝑠⟩)})
114		simpr 487	. . . . . . . . . . . . . . . . 17 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑠 ≠ 𝑂)
115	24, 1, 13, 14, 33, 2, 48, 93	tendoinvcl 38242	. . . . . . . . . . . . . . . . . 18 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 𝑂) → ((𝐽‘𝑠) ∈ 𝐸 ∧ (𝐽‘𝑠) ≠ 𝑂))
116	115	simpld 497	. . . . . . . . . . . . . . . . 17 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑠 ∈ 𝐸 ∧ 𝑠 ≠ 𝑂) → (𝐽‘𝑠) ∈ 𝐸)
117	47, 66, 114, 116	syl3anc 1367	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝐽‘𝑠) ∈ 𝐸)
118	1, 13, 14	tendocl 37905	. . . . . . . . . . . . . . . 16 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝐽‘𝑠) ∈ 𝐸 ∧ 𝑓 ∈ 𝑇) → ((𝐽‘𝑠)‘𝑓) ∈ 𝑇)
119	47, 117, 64, 118	syl3anc 1367	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((𝐽‘𝑠)‘𝑓) ∈ 𝑇)
120	27, 91, 1, 92	lhpocnel2 37157	. . . . . . . . . . . . . . . 16 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (𝑃 ∈ 𝐶 ∧ ¬ 𝑃 ≤ 𝑊))
121	47, 120	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝑃 ∈ 𝐶 ∧ ¬ 𝑃 ≤ 𝑊))
122	27, 91, 1, 13	ltrnel 37277	. . . . . . . . . . . . . . 15 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐽‘𝑠)‘𝑓) ∈ 𝑇 ∧ (𝑃 ∈ 𝐶 ∧ ¬ 𝑃 ≤ 𝑊)) → ((((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽‘𝑠)‘𝑓)‘𝑃) ≤ 𝑊))
123	47, 119, 121, 122	syl3anc 1367	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽‘𝑠)‘𝑓)‘𝑃) ≤ 𝑊))
124		eqid 2823	. . . . . . . . . . . . . . 15 ⊢ ((DIsoC‘𝐾)‘𝑊) = ((DIsoC‘𝐾)‘𝑊)
125	27, 91, 1, 124, 29	dihvalcqat 38377	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽‘𝑠)‘𝑓)‘𝑃) ≤ 𝑊)) → (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) = (((DIsoC‘𝐾)‘𝑊)‘(((𝐽‘𝑠)‘𝑓)‘𝑃)))
126	47, 123, 125	syl2anc 586	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) = (((DIsoC‘𝐾)‘𝑊)‘(((𝐽‘𝑠)‘𝑓)‘𝑃)))
127	27, 91, 1, 92, 13, 14, 124, 94	dicval2 38317	. . . . . . . . . . . . . 14 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽‘𝑠)‘𝑓)‘𝑃) ≤ 𝑊)) → (((DIsoC‘𝐾)‘𝑊)‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) = {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)})
128	47, 123, 127	syl2anc 586	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (((DIsoC‘𝐾)‘𝑊)‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) = {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)})
129	126, 128	eqtrd 2858	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) = {⟨𝑔, 𝑟⟩ ∣ (𝑔 = (𝑟‘𝐺) ∧ 𝑟 ∈ 𝐸)})
130	108, 113, 129	3eqtr4d 2868	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝑁‘{⟨𝑓, 𝑠⟩}) = (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)))
131	24, 1, 29	dihfn 38406	. . . . . . . . . . . . . 14 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → 𝐼 Fn 𝐵)
132	131	adantr 483	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) → 𝐼 Fn 𝐵)
133	132	adantr 483	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝐼 Fn 𝐵)
134		simplll 773	. . . . . . . . . . . . . . . 16 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝐾 ∈ HL)
135		hlop 36500	. . . . . . . . . . . . . . . 16 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
136	134, 135	syl 17	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝐾 ∈ OP)
137	24, 1	lhpbase 37136	. . . . . . . . . . . . . . . 16 ⊢ (𝑊 ∈ 𝐻 → 𝑊 ∈ 𝐵)
138	137	ad3antlr 729	. . . . . . . . . . . . . . 15 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑊 ∈ 𝐵)
139		eqid 2823	. . . . . . . . . . . . . . . 16 ⊢ (oc‘𝐾) = (oc‘𝐾)
140	24, 139	opoccl 36332	. . . . . . . . . . . . . . 15 ⊢ ((𝐾 ∈ OP ∧ 𝑊 ∈ 𝐵) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
141	136, 138, 140	syl2anc 586	. . . . . . . . . . . . . 14 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → ((oc‘𝐾)‘𝑊) ∈ 𝐵)
142	92, 141	eqeltrid 2919	. . . . . . . . . . . . 13 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → 𝑃 ∈ 𝐵)
143	24, 1, 13	ltrncl 37263	. . . . . . . . . . . . 13 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ ((𝐽‘𝑠)‘𝑓) ∈ 𝑇 ∧ 𝑃 ∈ 𝐵) → (((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐵)
144	47, 119, 142, 143	syl3anc 1367	. . . . . . . . . . . 12 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐵)
145		fnfvelrn 6850	. . . . . . . . . . . 12 ⊢ ((𝐼 Fn 𝐵 ∧ (((𝐽‘𝑠)‘𝑓)‘𝑃) ∈ 𝐵) → (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) ∈ ran 𝐼)
146	133, 144, 145	syl2anc 586	. . . . . . . . . . 11 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝐼‘(((𝐽‘𝑠)‘𝑓)‘𝑃)) ∈ ran 𝐼)
147	130, 146	eqeltrd 2915	. . . . . . . . . 10 ⊢ ((((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) ∧ 𝑠 ≠ 𝑂) → (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼)
148	46, 147	pm2.61dane 3106	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑓 ∈ 𝑇 ∧ 𝑠 ∈ 𝐸)) → (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼)
149	148	ralrimivva 3193	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ∀𝑓 ∈ 𝑇 ∀𝑠 ∈ 𝐸 (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼)
150		sneq 4579	. . . . . . . . . . 11 ⊢ (𝑣 = ⟨𝑓, 𝑠⟩ → {𝑣} = {⟨𝑓, 𝑠⟩})
151	150	fveq2d 6676	. . . . . . . . . 10 ⊢ (𝑣 = ⟨𝑓, 𝑠⟩ → (𝑁‘{𝑣}) = (𝑁‘{⟨𝑓, 𝑠⟩}))
152	151	eleq1d 2899	. . . . . . . . 9 ⊢ (𝑣 = ⟨𝑓, 𝑠⟩ → ((𝑁‘{𝑣}) ∈ ran 𝐼 ↔ (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼))
153	152	ralxp 5714	. . . . . . . 8 ⊢ (∀𝑣 ∈ (𝑇 × 𝐸)(𝑁‘{𝑣}) ∈ ran 𝐼 ↔ ∀𝑓 ∈ 𝑇 ∀𝑠 ∈ 𝐸 (𝑁‘{⟨𝑓, 𝑠⟩}) ∈ ran 𝐼)
154	149, 153	sylibr 236	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → ∀𝑣 ∈ (𝑇 × 𝐸)(𝑁‘{𝑣}) ∈ ran 𝐼)
155	154	r19.21bi 3210	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑣 ∈ (𝑇 × 𝐸)) → (𝑁‘{𝑣}) ∈ ran 𝐼)
156	18, 155	syldan 593	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑣 ∈ (𝑉 ∖ { 0 })) → (𝑁‘{𝑣}) ∈ ran 𝐼)
157		eleq1a 2910	. . . . 5 ⊢ ((𝑁‘{𝑣}) ∈ ran 𝐼 → (𝐷 = (𝑁‘{𝑣}) → 𝐷 ∈ ran 𝐼))
158	156, 157	syl 17	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝑣 ∈ (𝑉 ∖ { 0 })) → (𝐷 = (𝑁‘{𝑣}) → 𝐷 ∈ ran 𝐼))
159	158	rexlimdva 3286	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (∃𝑣 ∈ (𝑉 ∖ { 0 })𝐷 = (𝑁‘{𝑣}) → 𝐷 ∈ ran 𝐼))
160	159	adantr 483	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝐴) → (∃𝑣 ∈ (𝑉 ∖ { 0 })𝐷 = (𝑁‘{𝑣}) → 𝐷 ∈ ran 𝐼))
161	11, 160	mpd 15	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ 𝐷 ∈ 𝐴) → 𝐷 ∈ ran 𝐼)

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 208   ∧ wa 398   ∧ w3a 1083   = wceq 1537   ∈ wcel 2114  {cab 2801   ≠ wne 3018  ∀wral 3140  ∃wrex 3141  {crab 3144   ∖ cdif 3935   ⊆ wss 3938  {csn 4569  ⟨cop 4575   class class class wbr 5068  {copab 5130   ↦ cmpt 5148   I cid 5461   × cxp 5555  ran crn 5558   ↾ cres 5559   ∘ ccom 5561  Rel wrel 5562   Fn wfn 6352  –1-1→wf1 6354  ‘cfv 6357  ℩crio 7115  (class class class)co 7158  Basecbs 16485  Scalarcsca 16570   ·_𝑠 cvsca 16571  lecple 16574  occoc 16575  0_gc0g 16715  inv_rcinvr 19423  LModclmod 19636  LSubSpclss 19705  LSpanclspn 19745  LVecclvec 19876  LSAtomsclsa 36112  OPcops 36310  Atomscatm 36401  HLchlt 36488  LHypclh 37122  LTrncltrn 37239  trLctrl 37296  TEndoctendo 37890  DVecHcdvh 38216  DIsoBcdib 38276  DIsoCcdic 38310  DIsoHcdih 38366

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2795  ax-rep 5192  ax-sep 5205  ax-nul 5212  ax-pow 5268  ax-pr 5332  ax-un 7463  ax-cnex 10595  ax-resscn 10596  ax-1cn 10597  ax-icn 10598  ax-addcl 10599  ax-addrcl 10600  ax-mulcl 10601  ax-mulrcl 10602  ax-mulcom 10603  ax-addass 10604  ax-mulass 10605  ax-distr 10606  ax-i2m1 10607  ax-1ne0 10608  ax-1rid 10609  ax-rnegex 10610  ax-rrecex 10611  ax-cnre 10612  ax-pre-lttri 10613  ax-pre-lttrn 10614  ax-pre-ltadd 10615  ax-pre-mulgt0 10616  ax-riotaBAD 36091

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2802  df-cleq 2816  df-clel 2895  df-nfc 2965  df-ne 3019  df-nel 3126  df-ral 3145  df-rex 3146  df-reu 3147  df-rmo 3148  df-rab 3149  df-v 3498  df-sbc 3775  df-csb 3886  df-dif 3941  df-un 3943  df-in 3945  df-ss 3954  df-pss 3956  df-nul 4294  df-if 4470  df-pw 4543  df-sn 4570  df-pr 4572  df-tp 4574  df-op 4576  df-uni 4841  df-int 4879  df-iun 4923  df-iin 4924  df-br 5069  df-opab 5131  df-mpt 5149  df-tr 5175  df-id 5462  df-eprel 5467  df-po 5476  df-so 5477  df-fr 5516  df-we 5518  df-xp 5563  df-rel 5564  df-cnv 5565  df-co 5566  df-dm 5567  df-rn 5568  df-res 5569  df-ima 5570  df-pred 6150  df-ord 6196  df-on 6197  df-lim 6198  df-suc 6199  df-iota 6316  df-fun 6359  df-fn 6360  df-f 6361  df-f1 6362  df-fo 6363  df-f1o 6364  df-fv 6365  df-riota 7116  df-ov 7161  df-oprab 7162  df-mpo 7163  df-om 7583  df-1st 7691  df-2nd 7692  df-tpos 7894  df-undef 7941  df-wrecs 7949  df-recs 8010  df-rdg 8048  df-1o 8104  df-oadd 8108  df-er 8291  df-map 8410  df-en 8512  df-dom 8513  df-sdom 8514  df-fin 8515  df-pnf 10679  df-mnf 10680  df-xr 10681  df-ltxr 10682  df-le 10683  df-sub 10874  df-neg 10875  df-nn 11641  df-2 11703  df-3 11704  df-4 11705  df-5 11706  df-6 11707  df-n0 11901  df-z 11985  df-uz 12247  df-fz 12896  df-struct 16487  df-ndx 16488  df-slot 16489  df-base 16491  df-sets 16492  df-ress 16493  df-plusg 16580  df-mulr 16581  df-sca 16583  df-vsca 16584  df-0g 16717  df-proset 17540  df-poset 17558  df-plt 17570  df-lub 17586  df-glb 17587  df-join 17588  df-meet 17589  df-p0 17651  df-p1 17652  df-lat 17658  df-clat 17720  df-mgm 17854  df-sgrp 17903  df-mnd 17914  df-submnd 17959  df-grp 18108  df-minusg 18109  df-sbg 18110  df-subg 18278  df-cntz 18449  df-lsm 18763  df-cmn 18910  df-abl 18911  df-mgp 19242  df-ur 19254  df-ring 19301  df-oppr 19375  df-dvdsr 19393  df-unit 19394  df-invr 19424  df-dvr 19435  df-drng 19506  df-lmod 19638  df-lss 19706  df-lsp 19746  df-lvec 19877  df-lsatoms 36114  df-oposet 36314  df-ol 36316  df-oml 36317  df-covers 36404  df-ats 36405  df-atl 36436  df-cvlat 36460  df-hlat 36489  df-llines 36636  df-lplanes 36637  df-lvols 36638  df-lines 36639  df-psubsp 36641  df-pmap 36642  df-padd 36934  df-lhyp 37126  df-laut 37127  df-ldil 37242  df-ltrn 37243  df-trl 37297  df-tendo 37893  df-edring 37895  df-disoa 38167  df-dvech 38217  df-dib 38277  df-dic 38311  df-dih 38367

This theorem is referenced by:  dih1dimat  38468