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 43039
Description: Express the predicate on 𝑈 in ismnu 43006 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 1995 . . 3 (∀𝑓(𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
2 r19.42v 3191 . . . . 5 (∃𝑤𝑈 (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
3 19.26 1874 . . . . . . . 8 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))))
4 19.26 1874 . . . . . . . . . . 11 (∀𝑣((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)) ↔ (∀𝑣(𝑣𝑧𝑣𝑈) ∧ ∀𝑣(𝑣𝑧𝑣𝑤)))
5 jcab 519 . . . . . . . . . . . 12 ((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ ((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)))
65albii 1822 . . . . . . . . . . 11 (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ ∀𝑣((𝑣𝑧𝑣𝑈) ∧ (𝑣𝑧𝑣𝑤)))
7 pwss 4625 . . . . . . . . . . . 12 (𝒫 𝑧𝑈 ↔ ∀𝑣(𝑣𝑧𝑣𝑈))
8 pwss 4625 . . . . . . . . . . . 12 (𝒫 𝑧𝑤 ↔ ∀𝑣(𝑣𝑧𝑣𝑤))
97, 8anbi12i 628 . . . . . . . . . . 11 ((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ↔ (∀𝑣(𝑣𝑧𝑣𝑈) ∧ ∀𝑣(𝑣𝑧𝑣𝑤)))
104, 6, 93bitr4i 303 . . . . . . . . . 10 (∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ (𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤))
11 ralcom4 3284 . . . . . . . . . . 11 (∀𝑖𝑧𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
12 19.23v 1946 . . . . . . . . . . . . 13 (∀𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
13 3anass 1096 . . . . . . . . . . . . . . . 16 ((𝑣𝑈𝑖𝑣𝑣𝑓) ↔ (𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
1413exbii 1851 . . . . . . . . . . . . . . 15 (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) ↔ ∃𝑣(𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
15 df-rex 3072 . . . . . . . . . . . . . . 15 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) ↔ ∃𝑣(𝑣𝑈 ∧ (𝑖𝑣𝑣𝑓)))
1614, 15bitr4i 278 . . . . . . . . . . . . . 14 (∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) ↔ ∃𝑣𝑈 (𝑖𝑣𝑣𝑓))
1716imbi1i 350 . . . . . . . . . . . . 13 ((∃𝑣(𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
1812, 17bitri 275 . . . . . . . . . . . 12 (∀𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
1918ralbii 3094 . . . . . . . . . . 11 (∀𝑖𝑧𝑣((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
2011, 19bitr3i 277 . . . . . . . . . 10 (∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))
2110, 20anbi12i 628 . . . . . . . . 9 ((∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))))
22 anass 470 . . . . . . . . 9 (((𝒫 𝑧𝑈 ∧ 𝒫 𝑧𝑤) ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
2321, 22bitri 275 . . . . . . . 8 ((∀𝑣(𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑣𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
243, 23bitri 275 . . . . . . 7 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
25 dfss2 3968 . . . . . . . . . 10 (𝑣𝑧 ↔ ∀𝑡(𝑡𝑣𝑡𝑧))
26 df-an 398 . . . . . . . . . 10 ((𝑣𝑈𝑣𝑤) ↔ ¬ (𝑣𝑈 → ¬ 𝑣𝑤))
2725, 26imbi12i 351 . . . . . . . . 9 ((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ↔ (∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)))
28 3impexp 1359 . . . . . . . . . . 11 (((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))))
29 biid 261 . . . . . . . . . . . . . . . 16 (𝑖𝑢𝑖𝑢)
30 expanduniss 43038 . . . . . . . . . . . . . . . 16 ( 𝑢𝑤 ↔ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))
3129, 30expandan 43033 . . . . . . . . . . . . . . 15 ((𝑖𝑢 𝑢𝑤) ↔ ¬ (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))
3231expandrexn 43036 . . . . . . . . . . . . . 14 (∃𝑢𝑓 (𝑖𝑢 𝑢𝑤) ↔ ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))
3332imbi2i 336 . . . . . . . . . . . . 13 ((𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))
3433imbi2i 336 . . . . . . . . . . . 12 ((𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))
3534imbi2i 336 . . . . . . . . . . 11 ((𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))
3628, 35bitri 275 . . . . . . . . . 10 (((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))
3736expandral 43035 . . . . . . . . 9 (∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)) ↔ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))
3827, 37expandan 43033 . . . . . . . 8 (((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
3938albii 1822 . . . . . . 7 (∀𝑣((𝑣𝑧 → (𝑣𝑈𝑣𝑤)) ∧ ∀𝑖𝑧 ((𝑣𝑈𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤))) ↔ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
4024, 39bitr3i 277 . . . . . 6 ((𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))
4140expandrex 43037 . . . . 5 (∃𝑤𝑈 (𝒫 𝑧𝑈 ∧ (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
422, 41bitr3i 277 . . . 4 ((𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
4342albii 1822 . . 3 (∀𝑓(𝒫 𝑧𝑈 ∧ ∃𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
441, 43bitr3i 277 . 2 ((𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤)))))))))))
4544expandral 43035 1 (∀𝑧𝑈 (𝒫 𝑧𝑈 ∧ ∀𝑓𝑤𝑈 (𝒫 𝑧𝑤 ∧ ∀𝑖𝑧 (∃𝑣𝑈 (𝑖𝑣𝑣𝑓) → ∃𝑢𝑓 (𝑖𝑢 𝑢𝑤)))) ↔ ∀𝑧(𝑧𝑈 → ∀𝑓 ¬ ∀𝑤(𝑤𝑈 → ¬ ∀𝑣 ¬ ((∀𝑡(𝑡𝑣𝑡𝑧) → ¬ (𝑣𝑈 → ¬ 𝑣𝑤)) → ¬ ∀𝑖(𝑖𝑧 → (𝑣𝑈 → (𝑖𝑣 → (𝑣𝑓 → ¬ ∀𝑢(𝑢𝑓 → (𝑖𝑢 → ¬ ∀𝑜(𝑜𝑢 → ∀𝑠(𝑠𝑜𝑠𝑤))))))))))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 397  w3a 1088  wal 1540  wex 1782  wcel 2107  wral 3062  wrex 3071  wss 3948  𝒫 cpw 4602   cuni 4908
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-11 2155  ax-ext 2704
This theorem depends on definitions:  df-bi 206  df-an 398  df-3an 1090  df-tru 1545  df-ex 1783  df-sb 2069  df-clab 2711  df-cleq 2725  df-clel 2811  df-ral 3063  df-rex 3072  df-v 3477  df-in 3955  df-ss 3965  df-pw 4604  df-uni 4909
This theorem is referenced by:  rr-grothprimbi  43040
  Copyright terms: Public domain W3C validator