Proof of Theorem ifpim1g
Step | Hyp | Ref
| Expression |
1 | | ifpim123g 41107 |
. 2
⊢
((if-(𝜑, 𝜒, 𝜃) → if-(𝜓, 𝜒, 𝜃)) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ∧ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃))))) |
2 | | id 22 |
. . . . . 6
⊢ (𝜒 → 𝜒) |
3 | 2 | olci 863 |
. . . . 5
⊢ ((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) |
4 | 3 | biantrur 531 |
. . . 4
⊢ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ↔ (((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)))) |
5 | 4 | bicomi 223 |
. . 3
⊢ ((((𝜑 → ¬ 𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ↔ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) |
6 | | id 22 |
. . . . . 6
⊢ (𝜃 → 𝜃) |
7 | 6 | olci 863 |
. . . . 5
⊢ ((¬
𝜓 → 𝜑) ∨ (𝜃 → 𝜃)) |
8 | 7 | biantru 530 |
. . . 4
⊢ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ↔ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃)))) |
9 | 8 | bicomi 223 |
. . 3
⊢ ((((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃))) ↔ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃))) |
10 | 5, 9 | anbi12i 627 |
. 2
⊢
(((((𝜑 → ¬
𝜓) ∨ (𝜒 → 𝜒)) ∧ ((𝜓 → 𝜑) ∨ (𝜃 → 𝜒))) ∧ (((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)) ∧ ((¬ 𝜓 → 𝜑) ∨ (𝜃 → 𝜃)))) ↔ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ∧ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)))) |
11 | 1, 10 | bitri 274 |
1
⊢
((if-(𝜑, 𝜒, 𝜃) → if-(𝜓, 𝜒, 𝜃)) ↔ (((𝜓 → 𝜑) ∨ (𝜃 → 𝜒)) ∧ ((𝜑 → 𝜓) ∨ (𝜒 → 𝜃)))) |