Users' Mathboxes Mathbox for Rohan Ridenour < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  ismnuprim Structured version   Visualization version   GIF version

Theorem ismnuprim 40679
Description: Express the predicate on 𝑈 in ismnu 40646 using only primitives. (Contributed by Rohan Ridenour, 13-Aug-2023.)
Assertion
Ref Expression
ismnuprim (∀𝑧𝑈 (𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑧(𝑧𝑈 → ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))))
Distinct variable groups:   𝑣,𝑢   𝑣,𝑖   𝑢,𝑜   𝑈,𝑓   𝑧,𝑤,𝑣   𝑧,𝑡,𝑣   𝑧,𝑓,𝑣   𝑤,𝑈,𝑣   𝑤,𝑜,𝑠
Allowed substitution hints:   𝑈(𝑧,𝑢,𝑡,𝑖,𝑜,𝑠)

Proof of Theorem ismnuprim
StepHypRef Expression
1 19.28v 1997 . . 3 (∀𝑓(𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
2 r19.42v 3350 . . . . 5 (∃𝑤𝑈 (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
3 19.26 1871 . . . . . . . 8 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))))
4 19.26 1871 . . . . . . . . . . 11 (∀𝑣((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)) ↔ (∀𝑣(𝑣𝑧𝑣𝑈) ∧ ∀𝑣(𝑣𝑧𝑣𝑤)))
5 jcab 520 . . . . . . . . . . . 12 ((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ ((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)))
65albii 1820 . . . . . . . . . . 11 (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ ∀𝑣((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)))
7 pwss 4564 . . . . . . . . . . . 12 (𝒫 𝑧𝑈 ↔ ∀𝑣(𝑣𝑧𝑣𝑈))
8 pwss 4564 . . . . . . . . . . . 12 (𝒫 𝑧𝑤 ↔ ∀𝑣(𝑣𝑧𝑣𝑤))
97, 8anbi12i 628 . . . . . . . . . . 11 ((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ↔ (∀𝑣(𝑣𝑧𝑣𝑈) ∧ ∀𝑣(𝑣𝑧𝑣𝑤)))
104, 6, 93bitr4i 305 . . . . . . . . . 10 (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ (𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤))
11 ralcom4 3235 . . . . . . . . . . 11 (∀𝑖𝑧𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
12 19.23v 1943 . . . . . . . . . . . . 13 (∀𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
13 3anass 1091 . . . . . . . . . . . . . . . 16 ((𝑣𝑈𝑖𝑣𝑣𝑓) ↔ (𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
1413exbii 1848 . . . . . . . . . . . . . . 15 (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) ↔ ∃𝑣(𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
15 df-rex 3144 . . . . . . . . . . . . . . 15 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) ↔ ∃𝑣(𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
1614, 15bitr4i 280 . . . . . . . . . . . . . 14 (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) ↔ ∃𝑣𝑈 (𝑖𝑣𝑣𝑓))
1716imbi1i 352 . . . . . . . . . . . . 13 ((∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
1812, 17bitri 277 . . . . . . . . . . . 12 (∀𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
1918ralbii 3165 . . . . . . . . . . 11 (∀𝑖𝑧𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
2011, 19bitr3i 279 . . . . . . . . . 10 (∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
2110, 20anbi12i 628 . . . . . . . . 9 ((∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))))
22 anass 471 . . . . . . . . 9 (((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
2321, 22bitri 277 . . . . . . . 8 ((∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
243, 23bitri 277 . . . . . . 7 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
25 dfss2 3955 . . . . . . . . . 10 (𝑣𝑧 ↔ ∀𝑡(𝑡𝑣𝑡𝑧))
26 df-an 399 . . . . . . . . . 10 ((𝑣𝑈𝑣𝑤) ↔ ¬ (𝑣𝑈 → ¬ 𝑣𝑤))
2725, 26imbi12i 353 . . . . . . . . 9 ((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ (∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)))
28 3impexp 1354 . . . . . . . . . . 11 (((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
29 biid 263 . . . . . . . . . . . . . . . 16 (𝑖𝑢𝑖𝑢)
30 expanduniss 40678 . . . . . . . . . . . . . . . 16 ( 𝑢𝑤 ↔ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))
3129, 30expandan 40673 . . . . . . . . . . . . . . 15 ((𝑖𝑢 𝑢𝑤) ↔ ¬ (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))
3231expandrexn 40676 . . . . . . . . . . . . . 14 (∃𝑢𝑓 (𝑖𝑢 𝑢𝑤) ↔ ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))
3332imbi2i 338 . . . . . . . . . . . . 13 ((𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))
3433imbi2i 338 . . . . . . . . . . . 12 ((𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))
3534imbi2i 338 . . . . . . . . . . 11 ((𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))
3628, 35bitri 277 . . . . . . . . . 10 (((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))
3736expandral 40675 . . . . . . . . 9 (∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))
3827, 37expandan 40673 . . . . . . . 8 (((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
3938albii 1820 . . . . . . 7 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
4024, 39bitr3i 279 . . . . . 6 ((𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
4140expandrex 40677 . . . . 5 (∃𝑤𝑈 (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
422, 41bitr3i 279 . . . 4 ((𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
4342albii 1820 . . 3 (∀𝑓(𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
441, 43bitr3i 279 . 2 ((𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
4544expandral 40675 1 (∀𝑧𝑈 (𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑧(𝑧𝑈 → ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  w3a 1083  wal 1535  wex 1780  wcel 2114  wral 3138  wrex 3139  wss 3936  𝒫 cpw 4539   cuni 4838
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ral 3143  df-rex 3144  df-v 3496  df-in 3943  df-ss 3952  df-pw 4541  df-uni 4839
This theorem is referenced by:  rr-grothprimbi  40680
  Copyright terms: Public domain W3C validator