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

Theorem cdlemj1 34926
Description: Part of proof of Lemma J of [Crawley] p. 118. (Contributed by NM, 19-Jun-2013.)
Hypotheses
Ref Expression
cdlemj.b 𝐵 = (Base‘𝐾)
cdlemj.h 𝐻 = (LHyp‘𝐾)
cdlemj.t 𝑇 = ((LTrn‘𝐾)‘𝑊)
cdlemj.r 𝑅 = ((trL‘𝐾)‘𝑊)
cdlemj.e 𝐸 = ((TEndo‘𝐾)‘𝑊)
cdlemj.l = (le‘𝐾)
cdlemj.a 𝐴 = (Atoms‘𝐾)
Assertion
Ref Expression
cdlemj1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈)‘𝑝) = ((𝑉)‘𝑝))

Proof of Theorem cdlemj1
StepHypRef Expression
1 simp123 1187 . . . . . . . 8 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (𝑈𝐹) = (𝑉𝐹))
21fveq1d 6086 . . . . . . 7 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈𝐹)‘𝑝) = ((𝑉𝐹)‘𝑝))
32oveq1d 6538 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹))) = (((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹))))
43oveq2d 6539 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))))
5 simp11 1083 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
6 simp131 1188 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝐹𝑇)
7 simp22 1087 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝑔𝑇)
8 simp121 1185 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝑈𝐸)
9 simp33 1091 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (𝑝𝐴 ∧ ¬ 𝑝 𝑊))
10 simp132 1189 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝐹 ≠ ( I ↾ 𝐵))
11 simp23 1088 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝑔 ≠ ( I ↾ 𝐵))
12 simp31 1089 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (𝑅𝐹) ≠ (𝑅𝑔))
13 cdlemj.b . . . . . . 7 𝐵 = (Base‘𝐾)
14 cdlemj.l . . . . . . 7 = (le‘𝐾)
15 eqid 2605 . . . . . . 7 (join‘𝐾) = (join‘𝐾)
16 eqid 2605 . . . . . . 7 (meet‘𝐾) = (meet‘𝐾)
17 cdlemj.a . . . . . . 7 𝐴 = (Atoms‘𝐾)
18 cdlemj.h . . . . . . 7 𝐻 = (LHyp‘𝐾)
19 cdlemj.t . . . . . . 7 𝑇 = ((LTrn‘𝐾)‘𝑊)
20 cdlemj.r . . . . . . 7 𝑅 = ((trL‘𝐾)‘𝑊)
21 cdlemj.e . . . . . . 7 𝐸 = ((TEndo‘𝐾)‘𝑊)
22 eqid 2605 . . . . . . 7 ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹))))
2313, 14, 15, 16, 17, 18, 19, 20, 21, 22cdlemi 34925 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑔𝑇) ∧ (𝑈𝐸 ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑔 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐹) ≠ (𝑅𝑔))) → ((𝑈𝑔)‘𝑝) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))))
245, 6, 7, 8, 9, 10, 11, 12, 23syl323anc 1347 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈𝑔)‘𝑝) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑈𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))))
25 simp122 1186 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝑉𝐸)
26 eqid 2605 . . . . . . 7 ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹))))
2713, 14, 15, 16, 17, 18, 19, 20, 21, 26cdlemi 34925 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝐹𝑇𝑔𝑇) ∧ (𝑉𝐸 ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ (𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑔 ≠ ( I ↾ 𝐵) ∧ (𝑅𝐹) ≠ (𝑅𝑔))) → ((𝑉𝑔)‘𝑝) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))))
285, 6, 7, 25, 9, 10, 11, 12, 27syl323anc 1347 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑉𝑔)‘𝑝) = ((𝑝(join‘𝐾)(𝑅𝑔))(meet‘𝐾)(((𝑉𝐹)‘𝑝)(join‘𝐾)(𝑅‘(𝑔𝐹)))))
294, 24, 283eqtr4d 2649 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈𝑔)‘𝑝) = ((𝑉𝑔)‘𝑝))
3029oveq1d 6538 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔))) = (((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔))))
3130oveq2d 6539 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))))
32 simp133 1190 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → 𝑇)
33 simp21 1086 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ≠ ( I ↾ 𝐵))
34 simp32 1090 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → (𝑅𝑔) ≠ (𝑅))
35 eqid 2605 . . . 4 ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔))))
3613, 14, 15, 16, 17, 18, 19, 20, 21, 35cdlemi 34925 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇𝑇) ∧ (𝑈𝐸 ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ (𝑔 ≠ ( I ↾ 𝐵) ∧ ≠ ( I ↾ 𝐵) ∧ (𝑅𝑔) ≠ (𝑅))) → ((𝑈)‘𝑝) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))))
375, 7, 32, 8, 9, 11, 33, 34, 36syl323anc 1347 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈)‘𝑝) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑈𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))))
38 eqid 2605 . . . 4 ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔))))
3913, 14, 15, 16, 17, 18, 19, 20, 21, 38cdlemi 34925 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑔𝑇𝑇) ∧ (𝑉𝐸 ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ (𝑔 ≠ ( I ↾ 𝐵) ∧ ≠ ( I ↾ 𝐵) ∧ (𝑅𝑔) ≠ (𝑅))) → ((𝑉)‘𝑝) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))))
405, 7, 32, 25, 9, 11, 33, 34, 39syl323anc 1347 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑉)‘𝑝) = ((𝑝(join‘𝐾)(𝑅))(meet‘𝐾)(((𝑉𝑔)‘𝑝)(join‘𝐾)(𝑅‘(𝑔)))))
4131, 37, 403eqtr4d 2649 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑈𝐸𝑉𝐸 ∧ (𝑈𝐹) = (𝑉𝐹)) ∧ (𝐹𝑇𝐹 ≠ ( I ↾ 𝐵) ∧ 𝑇)) ∧ ( ≠ ( I ↾ 𝐵) ∧ 𝑔𝑇𝑔 ≠ ( I ↾ 𝐵)) ∧ ((𝑅𝐹) ≠ (𝑅𝑔) ∧ (𝑅𝑔) ≠ (𝑅) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊))) → ((𝑈)‘𝑝) = ((𝑉)‘𝑝))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 382  w3a 1030   = wceq 1474  wcel 1975  wne 2775   class class class wbr 4573   I cid 4934  ccnv 5023  cres 5026  ccom 5028  cfv 5786  (class class class)co 6523  Basecbs 15637  lecple 15717  joincjn 16709  meetcmee 16710  Atomscatm 33367  HLchlt 33454  LHypclh 34087  LTrncltrn 34204  trLctrl 34262  TEndoctendo 34857
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820  ax-riotaBAD 33056
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3or 1031  df-3an 1032  df-tru 1477  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-nel 2778  df-ral 2896  df-rex 2897  df-reu 2898  df-rmo 2899  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-op 4127  df-uni 4363  df-iun 4447  df-iin 4448  df-br 4574  df-opab 4634  df-mpt 4635  df-id 4939  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-riota 6485  df-ov 6526  df-oprab 6527  df-mpt2 6528  df-1st 7032  df-2nd 7033  df-undef 7259  df-map 7719  df-preset 16693  df-poset 16711  df-plt 16723  df-lub 16739  df-glb 16740  df-join 16741  df-meet 16742  df-p0 16804  df-p1 16805  df-lat 16811  df-clat 16873  df-oposet 33280  df-ol 33282  df-oml 33283  df-covers 33370  df-ats 33371  df-atl 33402  df-cvlat 33426  df-hlat 33455  df-llines 33601  df-lplanes 33602  df-lvols 33603  df-lines 33604  df-psubsp 33606  df-pmap 33607  df-padd 33899  df-lhyp 34091  df-laut 34092  df-ldil 34207  df-ltrn 34208  df-trl 34263  df-tendo 34860
This theorem is referenced by:  cdlemj2  34927
  Copyright terms: Public domain W3C validator