Metamath Proof Explorer |
< Previous
Next >
Nearby theorems |
||
Mirrors > Home > MPE Home > Th. List > predidm | Structured version Visualization version GIF version |
Description: Idempotent law for the predecessor class. (Contributed by Scott Fenton, 29-Mar-2011.) |
Ref | Expression |
---|---|
predidm | ⊢ Pred(𝑅, Pred(𝑅, 𝐴, 𝑋), 𝑋) = Pred(𝑅, 𝐴, 𝑋) |
Step | Hyp | Ref | Expression |
---|---|---|---|
1 | df-pred 5597 | . 2 ⊢ Pred(𝑅, Pred(𝑅, 𝐴, 𝑋), 𝑋) = (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) | |
2 | df-pred 5597 | . . . . 5 ⊢ Pred(𝑅, 𝐴, 𝑋) = (𝐴 ∩ (◡𝑅 “ {𝑋})) | |
3 | inidm 3784 | . . . . . 6 ⊢ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋})) = (◡𝑅 “ {𝑋}) | |
4 | 3 | ineq2i 3773 | . . . . 5 ⊢ (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) = (𝐴 ∩ (◡𝑅 “ {𝑋})) |
5 | 2, 4 | eqtr4i 2635 | . . . 4 ⊢ Pred(𝑅, 𝐴, 𝑋) = (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) |
6 | inass 3785 | . . . 4 ⊢ ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) = (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) | |
7 | 5, 6 | eqtr4i 2635 | . . 3 ⊢ Pred(𝑅, 𝐴, 𝑋) = ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) |
8 | 2 | ineq1i 3772 | . . 3 ⊢ (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) = ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) |
9 | 7, 8 | eqtr4i 2635 | . 2 ⊢ Pred(𝑅, 𝐴, 𝑋) = (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) |
10 | 1, 9 | eqtr4i 2635 | 1 ⊢ Pred(𝑅, Pred(𝑅, 𝐴, 𝑋), 𝑋) = Pred(𝑅, 𝐴, 𝑋) |
Colors of variables: wff setvar class |
Syntax hints: = wceq 1475 ∩ cin 3539 {csn 4125 ◡ccnv 5037 “ cima 5041 Predcpred 5596 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1713 ax-4 1728 ax-5 1827 ax-6 1875 ax-7 1922 ax-10 2006 ax-11 2021 ax-12 2034 ax-13 2234 ax-ext 2590 |
This theorem depends on definitions: df-bi 196 df-or 384 df-an 385 df-tru 1478 df-ex 1696 df-nf 1701 df-sb 1868 df-clab 2597 df-cleq 2603 df-clel 2606 df-nfc 2740 df-v 3175 df-in 3547 df-pred 5597 |
This theorem is referenced by: (None) |
Copyright terms: Public domain | W3C validator |