Step |
Hyp |
Ref |
Expression |
1 |
|
cdlemk5.b |
⊢ 𝐵 = ( Base ‘ 𝐾 ) |
2 |
|
cdlemk5.l |
⊢ ≤ = ( le ‘ 𝐾 ) |
3 |
|
cdlemk5.j |
⊢ ∨ = ( join ‘ 𝐾 ) |
4 |
|
cdlemk5.m |
⊢ ∧ = ( meet ‘ 𝐾 ) |
5 |
|
cdlemk5.a |
⊢ 𝐴 = ( Atoms ‘ 𝐾 ) |
6 |
|
cdlemk5.h |
⊢ 𝐻 = ( LHyp ‘ 𝐾 ) |
7 |
|
cdlemk5.t |
⊢ 𝑇 = ( ( LTrn ‘ 𝐾 ) ‘ 𝑊 ) |
8 |
|
cdlemk5.r |
⊢ 𝑅 = ( ( trL ‘ 𝐾 ) ‘ 𝑊 ) |
9 |
|
cdlemk5.z |
⊢ 𝑍 = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑏 ) ) ∧ ( ( 𝑁 ‘ 𝑃 ) ∨ ( 𝑅 ‘ ( 𝑏 ∘ ◡ 𝐹 ) ) ) ) |
10 |
|
cdlemk5.y |
⊢ 𝑌 = ( ( 𝑃 ∨ ( 𝑅 ‘ 𝑔 ) ) ∧ ( 𝑍 ∨ ( 𝑅 ‘ ( 𝑔 ∘ ◡ 𝑏 ) ) ) ) |
11 |
|
cdlemk5.x |
⊢ 𝑋 = ( ℩ 𝑧 ∈ 𝑇 ∀ 𝑏 ∈ 𝑇 ( ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) → ( 𝑧 ‘ 𝑃 ) = 𝑌 ) ) |
12 |
|
simp13l |
⊢ ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) → 𝐺 ∈ 𝑇 ) |
13 |
1 2 3 4 5 6 7 8 9 10 11
|
cdlemk36 |
⊢ ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) → ( 𝑋 ‘ 𝑃 ) = 𝑌 ) |
14 |
13
|
sbcth |
⊢ ( 𝐺 ∈ 𝑇 → [ 𝐺 / 𝑔 ] ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) → ( 𝑋 ‘ 𝑃 ) = 𝑌 ) ) |
15 |
|
sbcimg |
⊢ ( 𝐺 ∈ 𝑇 → ( [ 𝐺 / 𝑔 ] ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) → ( 𝑋 ‘ 𝑃 ) = 𝑌 ) ↔ ( [ 𝐺 / 𝑔 ] ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) → [ 𝐺 / 𝑔 ] ( 𝑋 ‘ 𝑃 ) = 𝑌 ) ) ) |
16 |
14 15
|
mpbid |
⊢ ( 𝐺 ∈ 𝑇 → ( [ 𝐺 / 𝑔 ] ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) → [ 𝐺 / 𝑔 ] ( 𝑋 ‘ 𝑃 ) = 𝑌 ) ) |
17 |
|
eleq1 |
⊢ ( 𝑔 = 𝐺 → ( 𝑔 ∈ 𝑇 ↔ 𝐺 ∈ 𝑇 ) ) |
18 |
|
neeq1 |
⊢ ( 𝑔 = 𝐺 → ( 𝑔 ≠ ( I ↾ 𝐵 ) ↔ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) |
19 |
17 18
|
anbi12d |
⊢ ( 𝑔 = 𝐺 → ( ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ↔ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ) |
20 |
19
|
3anbi3d |
⊢ ( 𝑔 = 𝐺 → ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ↔ ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ) ) |
21 |
|
fveq2 |
⊢ ( 𝑔 = 𝐺 → ( 𝑅 ‘ 𝑔 ) = ( 𝑅 ‘ 𝐺 ) ) |
22 |
21
|
neeq2d |
⊢ ( 𝑔 = 𝐺 → ( ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ↔ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) |
23 |
22
|
3anbi3d |
⊢ ( 𝑔 = 𝐺 → ( ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ↔ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) |
24 |
23
|
anbi2d |
⊢ ( 𝑔 = 𝐺 → ( ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ↔ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) ) |
25 |
20 24
|
3anbi13d |
⊢ ( 𝑔 = 𝐺 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) ↔ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) ) ) |
26 |
25
|
sbcieg |
⊢ ( 𝐺 ∈ 𝑇 → ( [ 𝐺 / 𝑔 ] ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝑔 ∈ 𝑇 ∧ 𝑔 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝑔 ) ) ) ) ↔ ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) ) ) |
27 |
|
sbceqg |
⊢ ( 𝐺 ∈ 𝑇 → ( [ 𝐺 / 𝑔 ] ( 𝑋 ‘ 𝑃 ) = 𝑌 ↔ ⦋ 𝐺 / 𝑔 ⦌ ( 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ) ) |
28 |
|
csbfv12 |
⊢ ⦋ 𝐺 / 𝑔 ⦌ ( 𝑋 ‘ 𝑃 ) = ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ ⦋ 𝐺 / 𝑔 ⦌ 𝑃 ) |
29 |
|
csbconstg |
⊢ ( 𝐺 ∈ 𝑇 → ⦋ 𝐺 / 𝑔 ⦌ 𝑃 = 𝑃 ) |
30 |
29
|
fveq2d |
⊢ ( 𝐺 ∈ 𝑇 → ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ ⦋ 𝐺 / 𝑔 ⦌ 𝑃 ) = ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) ) |
31 |
28 30
|
syl5eq |
⊢ ( 𝐺 ∈ 𝑇 → ⦋ 𝐺 / 𝑔 ⦌ ( 𝑋 ‘ 𝑃 ) = ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) ) |
32 |
31
|
eqeq1d |
⊢ ( 𝐺 ∈ 𝑇 → ( ⦋ 𝐺 / 𝑔 ⦌ ( 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ↔ ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ) ) |
33 |
27 32
|
bitrd |
⊢ ( 𝐺 ∈ 𝑇 → ( [ 𝐺 / 𝑔 ] ( 𝑋 ‘ 𝑃 ) = 𝑌 ↔ ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ) ) |
34 |
16 26 33
|
3imtr3d |
⊢ ( 𝐺 ∈ 𝑇 → ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) → ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ) ) |
35 |
12 34
|
mpcom |
⊢ ( ( ( ( 𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻 ) ∧ ( 𝐹 ∈ 𝑇 ∧ 𝐹 ≠ ( I ↾ 𝐵 ) ) ∧ ( 𝐺 ∈ 𝑇 ∧ 𝐺 ≠ ( I ↾ 𝐵 ) ) ) ∧ ( 𝑁 ∈ 𝑇 ∧ ( 𝑃 ∈ 𝐴 ∧ ¬ 𝑃 ≤ 𝑊 ) ∧ ( 𝑅 ‘ 𝐹 ) = ( 𝑅 ‘ 𝑁 ) ) ∧ ( 𝑏 ∈ 𝑇 ∧ ( 𝑏 ≠ ( I ↾ 𝐵 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐹 ) ∧ ( 𝑅 ‘ 𝑏 ) ≠ ( 𝑅 ‘ 𝐺 ) ) ) ) → ( ⦋ 𝐺 / 𝑔 ⦌ 𝑋 ‘ 𝑃 ) = ⦋ 𝐺 / 𝑔 ⦌ 𝑌 ) |