ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  pwtpss GIF version

Theorem pwtpss 3821
Description: The power set of an unordered triple. (Contributed by Jim Kingdon, 13-Aug-2018.)
Assertion
Ref Expression
pwtpss (({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∪ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) ⊆ 𝒫 {𝐴, 𝐵, 𝐶}

Proof of Theorem pwtpss
Dummy variable 𝑥 is distinct from all other variables.
StepHypRef Expression
1 sstpr 3772 . . 3 ((((𝑥 = ∅ ∨ 𝑥 = {𝐴}) ∨ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵})) ∨ ((𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}) ∨ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶}))) → 𝑥 ⊆ {𝐴, 𝐵, 𝐶})
2 elun 3291 . . . 4 (𝑥 ∈ (({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∪ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) ↔ (𝑥 ∈ ({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∨ 𝑥 ∈ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})))
3 elun 3291 . . . . . 6 (𝑥 ∈ ({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ↔ (𝑥 ∈ {∅, {𝐴}} ∨ 𝑥 ∈ {{𝐵}, {𝐴, 𝐵}}))
4 vex 2755 . . . . . . . 8 𝑥 ∈ V
54elpr 3628 . . . . . . 7 (𝑥 ∈ {∅, {𝐴}} ↔ (𝑥 = ∅ ∨ 𝑥 = {𝐴}))
64elpr 3628 . . . . . . 7 (𝑥 ∈ {{𝐵}, {𝐴, 𝐵}} ↔ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵}))
75, 6orbi12i 765 . . . . . 6 ((𝑥 ∈ {∅, {𝐴}} ∨ 𝑥 ∈ {{𝐵}, {𝐴, 𝐵}}) ↔ ((𝑥 = ∅ ∨ 𝑥 = {𝐴}) ∨ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵})))
83, 7bitri 184 . . . . 5 (𝑥 ∈ ({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ↔ ((𝑥 = ∅ ∨ 𝑥 = {𝐴}) ∨ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵})))
9 elun 3291 . . . . . 6 (𝑥 ∈ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}}) ↔ (𝑥 ∈ {{𝐶}, {𝐴, 𝐶}} ∨ 𝑥 ∈ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}}))
104elpr 3628 . . . . . . 7 (𝑥 ∈ {{𝐶}, {𝐴, 𝐶}} ↔ (𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}))
114elpr 3628 . . . . . . 7 (𝑥 ∈ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}} ↔ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶}))
1210, 11orbi12i 765 . . . . . 6 ((𝑥 ∈ {{𝐶}, {𝐴, 𝐶}} ∨ 𝑥 ∈ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}}) ↔ ((𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}) ∨ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶})))
139, 12bitri 184 . . . . 5 (𝑥 ∈ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}}) ↔ ((𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}) ∨ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶})))
148, 13orbi12i 765 . . . 4 ((𝑥 ∈ ({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∨ 𝑥 ∈ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) ↔ (((𝑥 = ∅ ∨ 𝑥 = {𝐴}) ∨ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵})) ∨ ((𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}) ∨ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶}))))
152, 14bitri 184 . . 3 (𝑥 ∈ (({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∪ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) ↔ (((𝑥 = ∅ ∨ 𝑥 = {𝐴}) ∨ (𝑥 = {𝐵} ∨ 𝑥 = {𝐴, 𝐵})) ∨ ((𝑥 = {𝐶} ∨ 𝑥 = {𝐴, 𝐶}) ∨ (𝑥 = {𝐵, 𝐶} ∨ 𝑥 = {𝐴, 𝐵, 𝐶}))))
164elpw 3596 . . 3 (𝑥 ∈ 𝒫 {𝐴, 𝐵, 𝐶} ↔ 𝑥 ⊆ {𝐴, 𝐵, 𝐶})
171, 15, 163imtr4i 201 . 2 (𝑥 ∈ (({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∪ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) → 𝑥 ∈ 𝒫 {𝐴, 𝐵, 𝐶})
1817ssriv 3174 1 (({∅, {𝐴}} ∪ {{𝐵}, {𝐴, 𝐵}}) ∪ ({{𝐶}, {𝐴, 𝐶}} ∪ {{𝐵, 𝐶}, {𝐴, 𝐵, 𝐶}})) ⊆ 𝒫 {𝐴, 𝐵, 𝐶}
Colors of variables: wff set class
Syntax hints:  wo 709   = wceq 1364  wcel 2160  cun 3142  wss 3144  c0 3437  𝒫 cpw 3590  {csn 3607  {cpr 3608  {ctp 3609
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-ext 2171
This theorem depends on definitions:  df-bi 117  df-3or 981  df-tru 1367  df-nf 1472  df-sb 1774  df-clab 2176  df-cleq 2182  df-clel 2185  df-nfc 2321  df-v 2754  df-dif 3146  df-un 3148  df-in 3150  df-ss 3157  df-nul 3438  df-pw 3592  df-sn 3613  df-pr 3614  df-tp 3615
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator