Step |
Hyp |
Ref |
Expression |
1 |
|
ifpn |
|- ( if- ( ph , -. ( ps \/_ ch ) , ( ps \/_ ch ) ) <-> if- ( -. ph , ( ps \/_ ch ) , -. ( ps \/_ ch ) ) ) |
2 |
|
wl-df-3xor |
|- ( hadd ( ph , ps , ch ) <-> if- ( ph , -. ( ps \/_ ch ) , ( ps \/_ ch ) ) ) |
3 |
|
df-xor |
|- ( ( ph \/_ ( ps \/_ ch ) ) <-> -. ( ph <-> ( ps \/_ ch ) ) ) |
4 |
|
nbbn |
|- ( ( -. ph <-> ( ps \/_ ch ) ) <-> -. ( ph <-> ( ps \/_ ch ) ) ) |
5 |
|
ifpdfbi |
|- ( ( -. ph <-> ( ps \/_ ch ) ) <-> if- ( -. ph , ( ps \/_ ch ) , -. ( ps \/_ ch ) ) ) |
6 |
3 4 5
|
3bitr2i |
|- ( ( ph \/_ ( ps \/_ ch ) ) <-> if- ( -. ph , ( ps \/_ ch ) , -. ( ps \/_ ch ) ) ) |
7 |
1 2 6
|
3bitr4i |
|- ( hadd ( ph , ps , ch ) <-> ( ph \/_ ( ps \/_ ch ) ) ) |