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 6116 | . 2 ⊢ Pred(𝑅, Pred(𝑅, 𝐴, 𝑋), 𝑋) = (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) | |
2 | df-pred 6116 | . . . . 5 ⊢ Pred(𝑅, 𝐴, 𝑋) = (𝐴 ∩ (◡𝑅 “ {𝑋})) | |
3 | inidm 4145 | . . . . . 6 ⊢ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋})) = (◡𝑅 “ {𝑋}) | |
4 | 3 | ineq2i 4136 | . . . . 5 ⊢ (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) = (𝐴 ∩ (◡𝑅 “ {𝑋})) |
5 | 2, 4 | eqtr4i 2824 | . . . 4 ⊢ Pred(𝑅, 𝐴, 𝑋) = (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) |
6 | inass 4146 | . . . 4 ⊢ ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) = (𝐴 ∩ ((◡𝑅 “ {𝑋}) ∩ (◡𝑅 “ {𝑋}))) | |
7 | 5, 6 | eqtr4i 2824 | . . 3 ⊢ Pred(𝑅, 𝐴, 𝑋) = ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) |
8 | 2 | ineq1i 4135 | . . 3 ⊢ (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) = ((𝐴 ∩ (◡𝑅 “ {𝑋})) ∩ (◡𝑅 “ {𝑋})) |
9 | 7, 8 | eqtr4i 2824 | . 2 ⊢ Pred(𝑅, 𝐴, 𝑋) = (Pred(𝑅, 𝐴, 𝑋) ∩ (◡𝑅 “ {𝑋})) |
10 | 1, 9 | eqtr4i 2824 | 1 ⊢ Pred(𝑅, Pred(𝑅, 𝐴, 𝑋), 𝑋) = Pred(𝑅, 𝐴, 𝑋) |
Colors of variables: wff setvar class |
Syntax hints: = wceq 1538 ∩ cin 3880 {csn 4525 ◡ccnv 5518 “ cima 5522 Predcpred 6115 |
This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1911 ax-6 1970 ax-7 2015 ax-8 2113 ax-9 2121 ax-ext 2770 |
This theorem depends on definitions: df-bi 210 df-an 400 df-tru 1541 df-ex 1782 df-sb 2070 df-clab 2777 df-cleq 2791 df-clel 2870 df-rab 3115 df-v 3443 df-in 3888 df-pred 6116 |
This theorem is referenced by: (None) |
Copyright terms: Public domain | W3C validator |