Proof of Theorem waj-ax
Step | Hyp | Ref
| Expression |
1 | | nannan 1489 |
. . 3
⊢ ((𝜑 ⊼ (𝜓 ⊼ 𝜒)) ↔ (𝜑 → (𝜓 ∧ 𝜒))) |
2 | | simpr 484 |
. . . . . . . . 9
⊢ ((𝜓 ∧ 𝜒) → 𝜒) |
3 | 2 | imim2i 16 |
. . . . . . . 8
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → (𝜑 → 𝜒)) |
4 | | pm2.27 42 |
. . . . . . . . . 10
⊢ (𝜑 → ((𝜑 → 𝜒) → 𝜒)) |
5 | 4 | anim2d 611 |
. . . . . . . . 9
⊢ (𝜑 → ((𝜃 ∧ (𝜑 → 𝜒)) → (𝜃 ∧ 𝜒))) |
6 | 5 | expdimp 452 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝜃) → ((𝜑 → 𝜒) → (𝜃 ∧ 𝜒))) |
7 | 3, 6 | syl5com 31 |
. . . . . . 7
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → ((𝜑 ∧ 𝜃) → (𝜃 ∧ 𝜒))) |
8 | 7 | con3d 152 |
. . . . . 6
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → (¬ (𝜃 ∧ 𝜒) → ¬ (𝜑 ∧ 𝜃))) |
9 | | df-nan 1484 |
. . . . . 6
⊢ ((𝜃 ⊼ 𝜒) ↔ ¬ (𝜃 ∧ 𝜒)) |
10 | | df-nan 1484 |
. . . . . 6
⊢ ((𝜑 ⊼ 𝜃) ↔ ¬ (𝜑 ∧ 𝜃)) |
11 | 8, 9, 10 | 3imtr4g 295 |
. . . . 5
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → ((𝜃 ⊼ 𝜒) → (𝜑 ⊼ 𝜃))) |
12 | | nanim 1490 |
. . . . 5
⊢ (((𝜃 ⊼ 𝜒) → (𝜑 ⊼ 𝜃)) ↔ ((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃)))) |
13 | 11, 12 | sylib 217 |
. . . 4
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → ((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃)))) |
14 | | pm3.21 471 |
. . . . . . . 8
⊢ (𝜓 → (𝜑 → (𝜑 ∧ 𝜓))) |
15 | 14 | adantr 480 |
. . . . . . 7
⊢ ((𝜓 ∧ 𝜒) → (𝜑 → (𝜑 ∧ 𝜓))) |
16 | 15 | com12 32 |
. . . . . 6
⊢ (𝜑 → ((𝜓 ∧ 𝜒) → (𝜑 ∧ 𝜓))) |
17 | 16 | a2i 14 |
. . . . 5
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → (𝜑 → (𝜑 ∧ 𝜓))) |
18 | | nannan 1489 |
. . . . 5
⊢ ((𝜑 ⊼ (𝜑 ⊼ 𝜓)) ↔ (𝜑 → (𝜑 ∧ 𝜓))) |
19 | 17, 18 | sylibr 233 |
. . . 4
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → (𝜑 ⊼ (𝜑 ⊼ 𝜓))) |
20 | 13, 19 | jca 511 |
. . 3
⊢ ((𝜑 → (𝜓 ∧ 𝜒)) → (((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃))) ∧ (𝜑 ⊼ (𝜑 ⊼ 𝜓)))) |
21 | 1, 20 | sylbi 216 |
. 2
⊢ ((𝜑 ⊼ (𝜓 ⊼ 𝜒)) → (((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃))) ∧ (𝜑 ⊼ (𝜑 ⊼ 𝜓)))) |
22 | | nannan 1489 |
. 2
⊢ (((𝜑 ⊼ (𝜓 ⊼ 𝜒)) ⊼ (((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃))) ⊼ (𝜑 ⊼ (𝜑 ⊼ 𝜓)))) ↔ ((𝜑 ⊼ (𝜓 ⊼ 𝜒)) → (((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃))) ∧ (𝜑 ⊼ (𝜑 ⊼ 𝜓))))) |
23 | 21, 22 | mpbir 230 |
1
⊢ ((𝜑 ⊼ (𝜓 ⊼ 𝜒)) ⊼ (((𝜃 ⊼ 𝜒) ⊼ ((𝜑 ⊼ 𝜃) ⊼ (𝜑 ⊼ 𝜃))) ⊼ (𝜑 ⊼ (𝜑 ⊼ 𝜓)))) |