Users' Mathboxes Mathbox for Richard Penner < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ifpim123g Structured version   Visualization version   GIF version

Theorem ifpim123g 40792
Description: Implication of conditional logical operators. The right hand side is basically conjunctive normal form which is useful in proofs. (Contributed by RP, 16-Apr-2020.)
Assertion
Ref Expression
ifpim123g ((if-(𝜑, 𝜒, 𝜏) → if-(𝜓, 𝜃, 𝜂)) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))) ∧ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))))

Proof of Theorem ifpim123g
StepHypRef Expression
1 dfifp4 1067 . . 3 (if-(𝜑, 𝜒, 𝜏) ↔ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)))
2 dfifp4 1067 . . 3 (if-(𝜓, 𝜃, 𝜂) ↔ ((¬ 𝜓𝜃) ∧ (𝜓𝜂)))
31, 2imbi12i 354 . 2 ((if-(𝜑, 𝜒, 𝜏) → if-(𝜓, 𝜃, 𝜂)) ↔ (((¬ 𝜑𝜒) ∧ (𝜑𝜏)) → ((¬ 𝜓𝜃) ∧ (𝜓𝜂))))
4 imor 853 . 2 ((((¬ 𝜑𝜒) ∧ (𝜑𝜏)) → ((¬ 𝜓𝜃) ∧ (𝜓𝜂))) ↔ (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ((¬ 𝜓𝜃) ∧ (𝜓𝜂))))
5 ordi 1006 . . 3 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ((¬ 𝜓𝜃) ∧ (𝜓𝜂))) ↔ ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (¬ 𝜓𝜃)) ∧ (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (𝜓𝜂))))
6 orass 922 . . . . 5 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ¬ 𝜓) ∨ 𝜃) ↔ (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (¬ 𝜓𝜃)))
7 ianor 982 . . . . . . . . . 10 (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ↔ (¬ (¬ 𝜑𝜒) ∨ ¬ (𝜑𝜏)))
8 pm4.52 985 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝜒) ↔ ¬ (¬ 𝜑𝜒))
98bicomi 227 . . . . . . . . . . 11 (¬ (¬ 𝜑𝜒) ↔ (𝜑 ∧ ¬ 𝜒))
10 ioran 984 . . . . . . . . . . 11 (¬ (𝜑𝜏) ↔ (¬ 𝜑 ∧ ¬ 𝜏))
119, 10orbi12i 915 . . . . . . . . . 10 ((¬ (¬ 𝜑𝜒) ∨ ¬ (𝜑𝜏)) ↔ ((𝜑 ∧ ¬ 𝜒) ∨ (¬ 𝜑 ∧ ¬ 𝜏)))
12 cases2 1048 . . . . . . . . . . 11 (((𝜑 ∧ ¬ 𝜒) ∨ (¬ 𝜑 ∧ ¬ 𝜏)) ↔ ((𝜑 → ¬ 𝜒) ∧ (¬ 𝜑 → ¬ 𝜏)))
13 imor 853 . . . . . . . . . . . 12 ((𝜑 → ¬ 𝜒) ↔ (¬ 𝜑 ∨ ¬ 𝜒))
14 pm4.66 850 . . . . . . . . . . . 12 ((¬ 𝜑 → ¬ 𝜏) ↔ (𝜑 ∨ ¬ 𝜏))
1513, 14anbi12i 630 . . . . . . . . . . 11 (((𝜑 → ¬ 𝜒) ∧ (¬ 𝜑 → ¬ 𝜏)) ↔ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)))
1612, 15bitri 278 . . . . . . . . . 10 (((𝜑 ∧ ¬ 𝜒) ∨ (¬ 𝜑 ∧ ¬ 𝜏)) ↔ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)))
177, 11, 163bitri 300 . . . . . . . . 9 (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ↔ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)))
1817orbi1i 914 . . . . . . . 8 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ¬ 𝜓) ↔ (((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ ¬ 𝜓))
19 orcom 870 . . . . . . . . 9 ((((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ ¬ 𝜓) ↔ (¬ 𝜓 ∨ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏))))
20 ordi 1006 . . . . . . . . 9 ((¬ 𝜓 ∨ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏))) ↔ ((¬ 𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (¬ 𝜓 ∨ (𝜑 ∨ ¬ 𝜏))))
2119, 20bitri 278 . . . . . . . 8 ((((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ ¬ 𝜓) ↔ ((¬ 𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (¬ 𝜓 ∨ (𝜑 ∨ ¬ 𝜏))))
22 orass 922 . . . . . . . . . 10 (((¬ 𝜓 ∨ ¬ 𝜑) ∨ ¬ 𝜒) ↔ (¬ 𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)))
23 orcom 870 . . . . . . . . . . . 12 ((¬ 𝜓 ∨ ¬ 𝜑) ↔ (¬ 𝜑 ∨ ¬ 𝜓))
24 imor 853 . . . . . . . . . . . 12 ((𝜑 → ¬ 𝜓) ↔ (¬ 𝜑 ∨ ¬ 𝜓))
2523, 24bitr4i 281 . . . . . . . . . . 11 ((¬ 𝜓 ∨ ¬ 𝜑) ↔ (𝜑 → ¬ 𝜓))
2625orbi1i 914 . . . . . . . . . 10 (((¬ 𝜓 ∨ ¬ 𝜑) ∨ ¬ 𝜒) ↔ ((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒))
2722, 26bitr3i 280 . . . . . . . . 9 ((¬ 𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ↔ ((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒))
28 orass 922 . . . . . . . . . 10 (((¬ 𝜓𝜑) ∨ ¬ 𝜏) ↔ (¬ 𝜓 ∨ (𝜑 ∨ ¬ 𝜏)))
29 imor 853 . . . . . . . . . . . 12 ((𝜓𝜑) ↔ (¬ 𝜓𝜑))
3029bicomi 227 . . . . . . . . . . 11 ((¬ 𝜓𝜑) ↔ (𝜓𝜑))
3130orbi1i 914 . . . . . . . . . 10 (((¬ 𝜓𝜑) ∨ ¬ 𝜏) ↔ ((𝜓𝜑) ∨ ¬ 𝜏))
3228, 31bitr3i 280 . . . . . . . . 9 ((¬ 𝜓 ∨ (𝜑 ∨ ¬ 𝜏)) ↔ ((𝜓𝜑) ∨ ¬ 𝜏))
3327, 32anbi12i 630 . . . . . . . 8 (((¬ 𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (¬ 𝜓 ∨ (𝜑 ∨ ¬ 𝜏))) ↔ (((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∧ ((𝜓𝜑) ∨ ¬ 𝜏)))
3418, 21, 333bitri 300 . . . . . . 7 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ¬ 𝜓) ↔ (((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∧ ((𝜓𝜑) ∨ ¬ 𝜏)))
3534orbi1i 914 . . . . . 6 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ¬ 𝜓) ∨ 𝜃) ↔ ((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∧ ((𝜓𝜑) ∨ ¬ 𝜏)) ∨ 𝜃))
36 ordir 1007 . . . . . 6 (((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∧ ((𝜓𝜑) ∨ ¬ 𝜏)) ∨ 𝜃) ↔ ((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∨ 𝜃) ∧ (((𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜃)))
37 orass 922 . . . . . . . 8 ((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∨ 𝜃) ↔ ((𝜑 → ¬ 𝜓) ∨ (¬ 𝜒𝜃)))
38 imor 853 . . . . . . . . . 10 ((𝜒𝜃) ↔ (¬ 𝜒𝜃))
3938bicomi 227 . . . . . . . . 9 ((¬ 𝜒𝜃) ↔ (𝜒𝜃))
4039orbi2i 913 . . . . . . . 8 (((𝜑 → ¬ 𝜓) ∨ (¬ 𝜒𝜃)) ↔ ((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)))
4137, 40bitri 278 . . . . . . 7 ((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∨ 𝜃) ↔ ((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)))
42 orass 922 . . . . . . . 8 ((((𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜃) ↔ ((𝜓𝜑) ∨ (¬ 𝜏𝜃)))
43 imor 853 . . . . . . . . . 10 ((𝜏𝜃) ↔ (¬ 𝜏𝜃))
4443bicomi 227 . . . . . . . . 9 ((¬ 𝜏𝜃) ↔ (𝜏𝜃))
4544orbi2i 913 . . . . . . . 8 (((𝜓𝜑) ∨ (¬ 𝜏𝜃)) ↔ ((𝜓𝜑) ∨ (𝜏𝜃)))
4642, 45bitri 278 . . . . . . 7 ((((𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜃) ↔ ((𝜓𝜑) ∨ (𝜏𝜃)))
4741, 46anbi12i 630 . . . . . 6 (((((𝜑 → ¬ 𝜓) ∨ ¬ 𝜒) ∨ 𝜃) ∧ (((𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜃)) ↔ (((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))))
4835, 36, 473bitri 300 . . . . 5 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ¬ 𝜓) ∨ 𝜃) ↔ (((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))))
496, 48bitr3i 280 . . . 4 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (¬ 𝜓𝜃)) ↔ (((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))))
50 orass 922 . . . . 5 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ 𝜓) ∨ 𝜂) ↔ (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (𝜓𝜂)))
5117orbi1i 914 . . . . . . . 8 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ 𝜓) ↔ (((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ 𝜓))
52 orcom 870 . . . . . . . . 9 ((((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ 𝜓) ↔ (𝜓 ∨ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏))))
53 ordi 1006 . . . . . . . . 9 ((𝜓 ∨ ((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏))) ↔ ((𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (𝜓 ∨ (𝜑 ∨ ¬ 𝜏))))
5452, 53bitri 278 . . . . . . . 8 ((((¬ 𝜑 ∨ ¬ 𝜒) ∧ (𝜑 ∨ ¬ 𝜏)) ∨ 𝜓) ↔ ((𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (𝜓 ∨ (𝜑 ∨ ¬ 𝜏))))
55 orass 922 . . . . . . . . . 10 (((𝜓 ∨ ¬ 𝜑) ∨ ¬ 𝜒) ↔ (𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)))
56 orcom 870 . . . . . . . . . . . 12 ((𝜓 ∨ ¬ 𝜑) ↔ (¬ 𝜑𝜓))
57 imor 853 . . . . . . . . . . . 12 ((𝜑𝜓) ↔ (¬ 𝜑𝜓))
5856, 57bitr4i 281 . . . . . . . . . . 11 ((𝜓 ∨ ¬ 𝜑) ↔ (𝜑𝜓))
5958orbi1i 914 . . . . . . . . . 10 (((𝜓 ∨ ¬ 𝜑) ∨ ¬ 𝜒) ↔ ((𝜑𝜓) ∨ ¬ 𝜒))
6055, 59bitr3i 280 . . . . . . . . 9 ((𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ↔ ((𝜑𝜓) ∨ ¬ 𝜒))
61 orass 922 . . . . . . . . . 10 (((𝜓𝜑) ∨ ¬ 𝜏) ↔ (𝜓 ∨ (𝜑 ∨ ¬ 𝜏)))
62 df-or 848 . . . . . . . . . . 11 ((𝜓𝜑) ↔ (¬ 𝜓𝜑))
6362orbi1i 914 . . . . . . . . . 10 (((𝜓𝜑) ∨ ¬ 𝜏) ↔ ((¬ 𝜓𝜑) ∨ ¬ 𝜏))
6461, 63bitr3i 280 . . . . . . . . 9 ((𝜓 ∨ (𝜑 ∨ ¬ 𝜏)) ↔ ((¬ 𝜓𝜑) ∨ ¬ 𝜏))
6560, 64anbi12i 630 . . . . . . . 8 (((𝜓 ∨ (¬ 𝜑 ∨ ¬ 𝜒)) ∧ (𝜓 ∨ (𝜑 ∨ ¬ 𝜏))) ↔ (((𝜑𝜓) ∨ ¬ 𝜒) ∧ ((¬ 𝜓𝜑) ∨ ¬ 𝜏)))
6651, 54, 653bitri 300 . . . . . . 7 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ 𝜓) ↔ (((𝜑𝜓) ∨ ¬ 𝜒) ∧ ((¬ 𝜓𝜑) ∨ ¬ 𝜏)))
6766orbi1i 914 . . . . . 6 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ 𝜓) ∨ 𝜂) ↔ ((((𝜑𝜓) ∨ ¬ 𝜒) ∧ ((¬ 𝜓𝜑) ∨ ¬ 𝜏)) ∨ 𝜂))
68 ordir 1007 . . . . . 6 (((((𝜑𝜓) ∨ ¬ 𝜒) ∧ ((¬ 𝜓𝜑) ∨ ¬ 𝜏)) ∨ 𝜂) ↔ ((((𝜑𝜓) ∨ ¬ 𝜒) ∨ 𝜂) ∧ (((¬ 𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜂)))
69 orass 922 . . . . . . . 8 ((((𝜑𝜓) ∨ ¬ 𝜒) ∨ 𝜂) ↔ ((𝜑𝜓) ∨ (¬ 𝜒𝜂)))
70 imor 853 . . . . . . . . . 10 ((𝜒𝜂) ↔ (¬ 𝜒𝜂))
7170bicomi 227 . . . . . . . . 9 ((¬ 𝜒𝜂) ↔ (𝜒𝜂))
7271orbi2i 913 . . . . . . . 8 (((𝜑𝜓) ∨ (¬ 𝜒𝜂)) ↔ ((𝜑𝜓) ∨ (𝜒𝜂)))
7369, 72bitri 278 . . . . . . 7 ((((𝜑𝜓) ∨ ¬ 𝜒) ∨ 𝜂) ↔ ((𝜑𝜓) ∨ (𝜒𝜂)))
74 orass 922 . . . . . . . 8 ((((¬ 𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜂) ↔ ((¬ 𝜓𝜑) ∨ (¬ 𝜏𝜂)))
75 imor 853 . . . . . . . . . 10 ((𝜏𝜂) ↔ (¬ 𝜏𝜂))
7675bicomi 227 . . . . . . . . 9 ((¬ 𝜏𝜂) ↔ (𝜏𝜂))
7776orbi2i 913 . . . . . . . 8 (((¬ 𝜓𝜑) ∨ (¬ 𝜏𝜂)) ↔ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))
7874, 77bitri 278 . . . . . . 7 ((((¬ 𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜂) ↔ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))
7973, 78anbi12i 630 . . . . . 6 (((((𝜑𝜓) ∨ ¬ 𝜒) ∨ 𝜂) ∧ (((¬ 𝜓𝜑) ∨ ¬ 𝜏) ∨ 𝜂)) ↔ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂))))
8067, 68, 793bitri 300 . . . . 5 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ 𝜓) ∨ 𝜂) ↔ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂))))
8150, 80bitr3i 280 . . . 4 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (𝜓𝜂)) ↔ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂))))
8249, 81anbi12i 630 . . 3 (((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (¬ 𝜓𝜃)) ∧ (¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ (𝜓𝜂))) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))) ∧ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))))
835, 82bitri 278 . 2 ((¬ ((¬ 𝜑𝜒) ∧ (𝜑𝜏)) ∨ ((¬ 𝜓𝜃) ∧ (𝜓𝜂))) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))) ∧ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))))
843, 4, 833bitri 300 1 ((if-(𝜑, 𝜒, 𝜏) → if-(𝜓, 𝜃, 𝜂)) ↔ ((((𝜑 → ¬ 𝜓) ∨ (𝜒𝜃)) ∧ ((𝜓𝜑) ∨ (𝜏𝜃))) ∧ (((𝜑𝜓) ∨ (𝜒𝜂)) ∧ ((¬ 𝜓𝜑) ∨ (𝜏𝜂)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 209  wa 399  wo 847  if-wif 1063
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 848  df-ifp 1064
This theorem is referenced by:  ifpim1g  40793  ifpbi1b  40795  ifpimimb  40796  ifpor123g  40800  ifpimim  40801
  Copyright terms: Public domain W3C validator