Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dih1dimatlem0 Structured version   Visualization version   GIF version

Theorem dih1dimatlem0 41820
Description: Lemma for dih1dimat 41822. (Contributed by NM, 11-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
dih1dimatlem0 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → ((𝑖 = (𝑝𝐺) ∧ 𝑝𝐸) ↔ ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))))
Distinct variable groups:   ,   𝐵,   𝑓,𝑖,𝑝,𝑠,𝑡,𝐸   𝑡,𝐹   𝐶,   𝑖,𝐺,𝑝,𝑡   𝑡,,𝐽   𝑓,𝑁,𝑠,𝑡   𝑓,,𝐾,𝑖,𝑝,𝑠,𝑡   𝑇,𝑓,,𝑖,𝑝,𝑠,𝑡   𝑈,𝑓,,𝑠,𝑡   𝑓,𝐻,,𝑖,𝑝,𝑠,𝑡   𝑓,𝑉,𝑖,𝑝,𝑠,𝑡   𝑓,𝑊,,𝑖,𝑝,𝑠,𝑡   𝑓,𝐼,𝑠   𝑖,𝑂,𝑝,𝑡   𝑃,   𝑡, ·
Allowed substitution hints:   𝐴(𝑡,𝑓,,𝑖,𝑠,𝑝)   𝐵(𝑡,𝑓,𝑖,𝑠,𝑝)   𝐶(𝑡,𝑓,𝑖,𝑠,𝑝)   𝑃(𝑡,𝑓,𝑖,𝑠,𝑝)   𝑅(𝑡,𝑓,,𝑖,𝑠,𝑝)   𝑆(𝑡,𝑓,,𝑖,𝑠,𝑝)   · (𝑓,,𝑖,𝑠,𝑝)   𝑈(𝑖,𝑝)   𝐸()   𝐹(𝑓,,𝑖,𝑠,𝑝)   𝐺(𝑓,,𝑠)   𝐼(𝑡,,𝑖,𝑝)   𝐽(𝑓,𝑖,𝑠,𝑝)   (𝑡,𝑓,𝑖,𝑠,𝑝)   𝑁(,𝑖,𝑝)   𝑂(𝑓,,𝑠)   𝑉()   0 (𝑡,𝑓,,𝑖,𝑠,𝑝)

Proof of Theorem dih1dimatlem0
StepHypRef Expression
1 simprl 776 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑖 = (𝑝𝐺))
2 simpl1 1198 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
3 simprr 778 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑝𝐸)
4 dih1dimat.l . . . . . . . 8 = (le‘𝐾)
5 dih1dimat.c . . . . . . . 8 𝐶 = (Atoms‘𝐾)
6 dih1dimat.h . . . . . . . 8 𝐻 = (LHyp‘𝐾)
7 dih1dimat.p . . . . . . . 8 𝑃 = ((oc‘𝐾)‘𝑊)
84, 5, 6, 7lhpocnel2 40511 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝑃𝐶 ∧ ¬ 𝑃 𝑊))
92, 8syl 17 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑃𝐶 ∧ ¬ 𝑃 𝑊))
10 simpl2r 1234 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑠𝐸)
11 simpl3 1200 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑠𝑂)
12 dih1dimat.b . . . . . . . . . . 11 𝐵 = (Base‘𝐾)
13 dih1dimat.t . . . . . . . . . . 11 𝑇 = ((LTrn‘𝐾)‘𝑊)
14 dih1dimat.e . . . . . . . . . . 11 𝐸 = ((TEndo‘𝐾)‘𝑊)
15 dih1dimat.o . . . . . . . . . . 11 𝑂 = (𝑇 ↦ ( I ↾ 𝐵))
16 dih1dimat.u . . . . . . . . . . 11 𝑈 = ((DVecH‘𝐾)‘𝑊)
17 dih1dimat.d . . . . . . . . . . 11 𝐹 = (Scalar‘𝑈)
18 dih1dimat.j . . . . . . . . . . 11 𝐽 = (invr𝐹)
1912, 6, 13, 14, 15, 16, 17, 18tendoinvcl 41596 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑠𝑂) → ((𝐽𝑠) ∈ 𝐸 ∧ (𝐽𝑠) ≠ 𝑂))
2019simpld 495 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑠𝑂) → (𝐽𝑠) ∈ 𝐸)
212, 10, 11, 20syl3anc 1379 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝐽𝑠) ∈ 𝐸)
22 simpl2l 1233 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑓𝑇)
236, 13, 14tendocl 41259 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝐽𝑠) ∈ 𝐸𝑓𝑇) → ((𝐽𝑠)‘𝑓) ∈ 𝑇)
242, 21, 22, 23syl3anc 1379 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ((𝐽𝑠)‘𝑓) ∈ 𝑇)
254, 5, 6, 13ltrnel 40631 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝐽𝑠)‘𝑓) ∈ 𝑇 ∧ (𝑃𝐶 ∧ ¬ 𝑃 𝑊)) → ((((𝐽𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽𝑠)‘𝑓)‘𝑃) 𝑊))
262, 24, 9, 25syl3anc 1379 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ((((𝐽𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽𝑠)‘𝑓)‘𝑃) 𝑊))
27 dih1dimat.g . . . . . . 7 𝐺 = (𝑇 (𝑃) = (((𝐽𝑠)‘𝑓)‘𝑃))
284, 5, 6, 13, 27ltrniotacl 41071 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐶 ∧ ¬ 𝑃 𝑊) ∧ ((((𝐽𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽𝑠)‘𝑓)‘𝑃) 𝑊)) → 𝐺𝑇)
292, 9, 26, 28syl3anc 1379 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝐺𝑇)
306, 13, 14tendocl 41259 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑝𝐸𝐺𝑇) → (𝑝𝐺) ∈ 𝑇)
312, 3, 29, 30syl3anc 1379 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝𝐺) ∈ 𝑇)
321, 31eqeltrd 2839 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑖𝑇)
336, 14tendococl 41264 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑝𝐸 ∧ (𝐽𝑠) ∈ 𝐸) → (𝑝 ∘ (𝐽𝑠)) ∈ 𝐸)
342, 3, 21, 33syl3anc 1379 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝 ∘ (𝐽𝑠)) ∈ 𝐸)
35 simp1 1142 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → (𝐾 ∈ HL ∧ 𝑊𝐻))
3683ad2ant1 1139 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → (𝑃𝐶 ∧ ¬ 𝑃 𝑊))
37203adant2l 1185 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → (𝐽𝑠) ∈ 𝐸)
38 simp2l 1206 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → 𝑓𝑇)
3935, 37, 38, 23syl3anc 1379 . . . . . . . . . 10 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → ((𝐽𝑠)‘𝑓) ∈ 𝑇)
4035, 39, 36, 25syl3anc 1379 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → ((((𝐽𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽𝑠)‘𝑓)‘𝑃) 𝑊))
4135, 36, 40, 28syl3anc 1379 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → 𝐺𝑇)
424, 5, 6, 13, 27ltrniotaval 41073 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑃𝐶 ∧ ¬ 𝑃 𝑊) ∧ ((((𝐽𝑠)‘𝑓)‘𝑃) ∈ 𝐶 ∧ ¬ (((𝐽𝑠)‘𝑓)‘𝑃) 𝑊)) → (𝐺𝑃) = (((𝐽𝑠)‘𝑓)‘𝑃))
4335, 36, 40, 42syl3anc 1379 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → (𝐺𝑃) = (((𝐽𝑠)‘𝑓)‘𝑃))
444, 5, 6, 13cdlemd 40699 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐺𝑇 ∧ ((𝐽𝑠)‘𝑓) ∈ 𝑇) ∧ (𝑃𝐶 ∧ ¬ 𝑃 𝑊) ∧ (𝐺𝑃) = (((𝐽𝑠)‘𝑓)‘𝑃)) → 𝐺 = ((𝐽𝑠)‘𝑓))
4535, 41, 39, 36, 43, 44syl311anc 1392 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → 𝐺 = ((𝐽𝑠)‘𝑓))
4645adantr 481 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝐺 = ((𝐽𝑠)‘𝑓))
4746fveq2d 6831 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝𝐺) = (𝑝‘((𝐽𝑠)‘𝑓)))
486, 13, 14tendocoval 41258 . . . . . 6 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑝𝐸 ∧ (𝐽𝑠) ∈ 𝐸) ∧ 𝑓𝑇) → ((𝑝 ∘ (𝐽𝑠))‘𝑓) = (𝑝‘((𝐽𝑠)‘𝑓)))
492, 3, 21, 22, 48syl121anc 1383 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ((𝑝 ∘ (𝐽𝑠))‘𝑓) = (𝑝‘((𝐽𝑠)‘𝑓)))
5047, 1, 493eqtr4d 2784 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑖 = ((𝑝 ∘ (𝐽𝑠))‘𝑓))
51 coass 6217 . . . . 5 ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠) = (𝑝 ∘ ((𝐽𝑠) ∘ 𝑠))
5212, 6, 13, 14, 15, 16, 17, 18tendolinv 41597 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑠𝑂) → ((𝐽𝑠) ∘ 𝑠) = ( I ↾ 𝑇))
532, 10, 11, 52syl3anc 1379 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ((𝐽𝑠) ∘ 𝑠) = ( I ↾ 𝑇))
5453coeq2d 5804 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝 ∘ ((𝐽𝑠) ∘ 𝑠)) = (𝑝 ∘ ( I ↾ 𝑇)))
556, 13, 14tendo1mulr 41263 . . . . . . 7 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑝𝐸) → (𝑝 ∘ ( I ↾ 𝑇)) = 𝑝)
562, 3, 55syl2anc 590 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝 ∘ ( I ↾ 𝑇)) = 𝑝)
5754, 56eqtrd 2774 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → (𝑝 ∘ ((𝐽𝑠) ∘ 𝑠)) = 𝑝)
5851, 57eqtr2id 2787 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → 𝑝 = ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠))
59 fveq1 6826 . . . . . . 7 (𝑡 = (𝑝 ∘ (𝐽𝑠)) → (𝑡𝑓) = ((𝑝 ∘ (𝐽𝑠))‘𝑓))
6059eqeq2d 2750 . . . . . 6 (𝑡 = (𝑝 ∘ (𝐽𝑠)) → (𝑖 = (𝑡𝑓) ↔ 𝑖 = ((𝑝 ∘ (𝐽𝑠))‘𝑓)))
61 coeq1 5799 . . . . . . 7 (𝑡 = (𝑝 ∘ (𝐽𝑠)) → (𝑡𝑠) = ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠))
6261eqeq2d 2750 . . . . . 6 (𝑡 = (𝑝 ∘ (𝐽𝑠)) → (𝑝 = (𝑡𝑠) ↔ 𝑝 = ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠)))
6360, 62anbi12d 638 . . . . 5 (𝑡 = (𝑝 ∘ (𝐽𝑠)) → ((𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)) ↔ (𝑖 = ((𝑝 ∘ (𝐽𝑠))‘𝑓) ∧ 𝑝 = ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠))))
6463rspcev 3560 . . . 4 (((𝑝 ∘ (𝐽𝑠)) ∈ 𝐸 ∧ (𝑖 = ((𝑝 ∘ (𝐽𝑠))‘𝑓) ∧ 𝑝 = ((𝑝 ∘ (𝐽𝑠)) ∘ 𝑠))) → ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))
6534, 50, 58, 64syl12anc 842 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))
6632, 3, 65jca31 519 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸)) → ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))))
67 simp3r 1209 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑝 = (𝑡𝑠))
6867fveq1d 6829 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑝‘((𝐽𝑠)‘𝑓)) = ((𝑡𝑠)‘((𝐽𝑠)‘𝑓)))
69 simp1l1 1273 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
70 simp2 1143 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑡𝐸)
71 simpl2r 1234 . . . . . . . . . 10 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) → 𝑠𝐸)
72713ad2ant1 1139 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑠𝐸)
736, 14tendococl 41264 . . . . . . . . 9 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑡𝐸𝑠𝐸) → (𝑡𝑠) ∈ 𝐸)
7469, 70, 72, 73syl3anc 1379 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑡𝑠) ∈ 𝐸)
75 simp1l3 1275 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑠𝑂)
7669, 72, 75, 20syl3anc 1379 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝐽𝑠) ∈ 𝐸)
77 simpl2l 1233 . . . . . . . . 9 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) → 𝑓𝑇)
78773ad2ant1 1139 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑓𝑇)
796, 13, 14tendocoval 41258 . . . . . . . 8 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ ((𝑡𝑠) ∈ 𝐸 ∧ (𝐽𝑠) ∈ 𝐸) ∧ 𝑓𝑇) → (((𝑡𝑠) ∘ (𝐽𝑠))‘𝑓) = ((𝑡𝑠)‘((𝐽𝑠)‘𝑓)))
8069, 74, 76, 78, 79syl121anc 1383 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (((𝑡𝑠) ∘ (𝐽𝑠))‘𝑓) = ((𝑡𝑠)‘((𝐽𝑠)‘𝑓)))
81 coass 6217 . . . . . . . . 9 ((𝑡𝑠) ∘ (𝐽𝑠)) = (𝑡 ∘ (𝑠 ∘ (𝐽𝑠)))
8212, 6, 13, 14, 15, 16, 17, 18tendorinv 41598 . . . . . . . . . . . 12 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑠𝐸𝑠𝑂) → (𝑠 ∘ (𝐽𝑠)) = ( I ↾ 𝑇))
8369, 72, 75, 82syl3anc 1379 . . . . . . . . . . 11 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑠 ∘ (𝐽𝑠)) = ( I ↾ 𝑇))
8483coeq2d 5804 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑡 ∘ (𝑠 ∘ (𝐽𝑠))) = (𝑡 ∘ ( I ↾ 𝑇)))
856, 13, 14tendo1mulr 41263 . . . . . . . . . . 11 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑡𝐸) → (𝑡 ∘ ( I ↾ 𝑇)) = 𝑡)
8669, 70, 85syl2anc 590 . . . . . . . . . 10 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑡 ∘ ( I ↾ 𝑇)) = 𝑡)
8784, 86eqtrd 2774 . . . . . . . . 9 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑡 ∘ (𝑠 ∘ (𝐽𝑠))) = 𝑡)
8881, 87eqtrid 2786 . . . . . . . 8 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → ((𝑡𝑠) ∘ (𝐽𝑠)) = 𝑡)
8988fveq1d 6829 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (((𝑡𝑠) ∘ (𝐽𝑠))‘𝑓) = (𝑡𝑓))
9068, 80, 893eqtr2rd 2781 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑡𝑓) = (𝑝‘((𝐽𝑠)‘𝑓)))
91 simp3l 1208 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑖 = (𝑡𝑓))
9245adantr 481 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) → 𝐺 = ((𝐽𝑠)‘𝑓))
93923ad2ant1 1139 . . . . . . 7 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝐺 = ((𝐽𝑠)‘𝑓))
9493fveq2d 6831 . . . . . 6 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → (𝑝𝐺) = (𝑝‘((𝐽𝑠)‘𝑓)))
9590, 91, 943eqtr4d 2784 . . . . 5 (((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) ∧ 𝑡𝐸 ∧ (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠))) → 𝑖 = (𝑝𝐺))
9695rexlimdv3a 3144 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ (𝑖𝑇𝑝𝐸)) → (∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)) → 𝑖 = (𝑝𝐺)))
9796impr 455 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))) → 𝑖 = (𝑝𝐺))
98 simprlr 785 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))) → 𝑝𝐸)
9997, 98jca 516 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) ∧ ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))) → (𝑖 = (𝑝𝐺) ∧ 𝑝𝐸))
10066, 99impbida 806 1 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑓𝑇𝑠𝐸) ∧ 𝑠𝑂) → ((𝑖 = (𝑝𝐺) ∧ 𝑝𝐸) ↔ ((𝑖𝑇𝑝𝐸) ∧ ∃𝑡𝐸 (𝑖 = (𝑡𝑓) ∧ 𝑝 = (𝑡𝑠)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396  w3a 1092   = wceq 1547  wcel 2119  wne 2934  wrex 3063   class class class wbr 5072  cmpt 5153   I cid 5512  cres 5620  ccom 5622  cfv 6485  crio 7312  Basecbs 17170  Scalarcsca 17214   ·𝑠 cvsca 17215  lecple 17218  occoc 17219  0gc0g 17393  invrcinvr 20358  LSubSpclss 20921  LSpanclspn 20961  LSAtomsclsa 39466  Atomscatm 39755  HLchlt 39842  LHypclh 40476  LTrncltrn 40593  trLctrl 40650  TEndoctendo 41244  DVecHcdvh 41570  DIsoHcdih 41720
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5199  ax-sep 5218  ax-nul 5228  ax-pow 5294  ax-pr 5362  ax-un 7678  ax-cnex 11085  ax-resscn 11086  ax-1cn 11087  ax-icn 11088  ax-addcl 11089  ax-addrcl 11090  ax-mulcl 11091  ax-mulrcl 11092  ax-mulcom 11093  ax-addass 11094  ax-mulass 11095  ax-distr 11096  ax-i2m1 11097  ax-1ne0 11098  ax-1rid 11099  ax-rnegex 11100  ax-rrecex 11101  ax-cnre 11102  ax-pre-lttri 11103  ax-pre-lttrn 11104  ax-pre-ltadd 11105  ax-pre-mulgt0 11106  ax-riotaBAD 39445
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3or 1093  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-nel 3039  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3903  df-nul 4262  df-if 4455  df-pw 4531  df-sn 4556  df-pr 4558  df-tp 4560  df-op 4562  df-uni 4839  df-iun 4923  df-iin 4924  df-br 5073  df-opab 5135  df-mpt 5154  df-tr 5180  df-id 5513  df-eprel 5518  df-po 5526  df-so 5527  df-fr 5571  df-we 5573  df-xp 5624  df-rel 5625  df-cnv 5626  df-co 5627  df-dm 5628  df-rn 5629  df-res 5630  df-ima 5631  df-pred 6252  df-ord 6313  df-on 6314  df-lim 6315  df-suc 6316  df-iota 6441  df-fun 6487  df-fn 6488  df-f 6489  df-f1 6490  df-fo 6491  df-f1o 6492  df-fv 6493  df-riota 7313  df-ov 7359  df-oprab 7360  df-mpo 7361  df-om 7807  df-1st 7931  df-2nd 7932  df-tpos 8166  df-undef 8213  df-frecs 8221  df-wrecs 8252  df-recs 8301  df-rdg 8339  df-1o 8395  df-er 8633  df-map 8765  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-pnf 11172  df-mnf 11173  df-xr 11174  df-ltxr 11175  df-le 11176  df-sub 11370  df-neg 11371  df-nn 12166  df-2 12235  df-3 12236  df-4 12237  df-5 12238  df-6 12239  df-n0 12429  df-z 12516  df-uz 12780  df-fz 13453  df-struct 17108  df-sets 17125  df-slot 17143  df-ndx 17155  df-base 17171  df-ress 17192  df-plusg 17224  df-mulr 17225  df-sca 17227  df-vsca 17228  df-0g 17395  df-proset 18251  df-poset 18270  df-plt 18285  df-lub 18301  df-glb 18302  df-join 18303  df-meet 18304  df-p0 18380  df-p1 18381  df-lat 18389  df-clat 18456  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-grp 18903  df-minusg 18904  df-cmn 19748  df-abl 19749  df-mgp 20113  df-rng 20125  df-ur 20154  df-ring 20207  df-oppr 20308  df-dvdsr 20328  df-unit 20329  df-invr 20359  df-dvr 20372  df-drng 20703  df-oposet 39668  df-ol 39670  df-oml 39671  df-covers 39758  df-ats 39759  df-atl 39790  df-cvlat 39814  df-hlat 39843  df-llines 39990  df-lplanes 39991  df-lvols 39992  df-lines 39993  df-psubsp 39995  df-pmap 39996  df-padd 40288  df-lhyp 40480  df-laut 40481  df-ldil 40596  df-ltrn 40597  df-trl 40651  df-tendo 41247  df-edring 41249  df-dvech 41571
This theorem is referenced by:  dih1dimatlem  41821
  Copyright terms: Public domain W3C validator