Proof of Theorem ecinxp
| Step | Hyp | Ref | Expression | 
|---|
| 1 |  | simpr 484 | . . . . . . . 8
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → 𝐵 ∈ 𝐴) | 
| 2 | 1 | snssd 4809 | . . . . . . 7
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → {𝐵} ⊆ 𝐴) | 
| 3 |  | dfss2 3969 | . . . . . . 7
⊢ ({𝐵} ⊆ 𝐴 ↔ ({𝐵} ∩ 𝐴) = {𝐵}) | 
| 4 | 2, 3 | sylib 218 | . . . . . 6
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → ({𝐵} ∩ 𝐴) = {𝐵}) | 
| 5 | 4 | imaeq2d 6078 | . . . . 5
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ ({𝐵} ∩ 𝐴)) = (𝑅 “ {𝐵})) | 
| 6 | 5 | ineq1d 4219 | . . . 4
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → ((𝑅 “ ({𝐵} ∩ 𝐴)) ∩ 𝐴) = ((𝑅 “ {𝐵}) ∩ 𝐴)) | 
| 7 |  | imass2 6120 | . . . . . . 7
⊢ ({𝐵} ⊆ 𝐴 → (𝑅 “ {𝐵}) ⊆ (𝑅 “ 𝐴)) | 
| 8 | 2, 7 | syl 17 | . . . . . 6
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ {𝐵}) ⊆ (𝑅 “ 𝐴)) | 
| 9 |  | simpl 482 | . . . . . 6
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ 𝐴) ⊆ 𝐴) | 
| 10 | 8, 9 | sstrd 3994 | . . . . 5
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ {𝐵}) ⊆ 𝐴) | 
| 11 |  | dfss2 3969 | . . . . 5
⊢ ((𝑅 “ {𝐵}) ⊆ 𝐴 ↔ ((𝑅 “ {𝐵}) ∩ 𝐴) = (𝑅 “ {𝐵})) | 
| 12 | 10, 11 | sylib 218 | . . . 4
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → ((𝑅 “ {𝐵}) ∩ 𝐴) = (𝑅 “ {𝐵})) | 
| 13 | 6, 12 | eqtr2d 2778 | . . 3
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ {𝐵}) = ((𝑅 “ ({𝐵} ∩ 𝐴)) ∩ 𝐴)) | 
| 14 |  | imainrect 6201 | . . 3
⊢ ((𝑅 ∩ (𝐴 × 𝐴)) “ {𝐵}) = ((𝑅 “ ({𝐵} ∩ 𝐴)) ∩ 𝐴) | 
| 15 | 13, 14 | eqtr4di 2795 | . 2
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → (𝑅 “ {𝐵}) = ((𝑅 ∩ (𝐴 × 𝐴)) “ {𝐵})) | 
| 16 |  | df-ec 8747 | . 2
⊢ [𝐵]𝑅 = (𝑅 “ {𝐵}) | 
| 17 |  | df-ec 8747 | . 2
⊢ [𝐵](𝑅 ∩ (𝐴 × 𝐴)) = ((𝑅 ∩ (𝐴 × 𝐴)) “ {𝐵}) | 
| 18 | 15, 16, 17 | 3eqtr4g 2802 | 1
⊢ (((𝑅 “ 𝐴) ⊆ 𝐴 ∧ 𝐵 ∈ 𝐴) → [𝐵]𝑅 = [𝐵](𝑅 ∩ (𝐴 × 𝐴))) |