Metamath Proof Explorer


Theorem suppvalbr

Description: The value of the operation constructing the support of a function expressed by binary relations. (Contributed by AV, 7-Apr-2019)

Ref Expression
Assertion suppvalbr ⊢ R ∈ V ∧ Z ∈ W → R supp Z = x | ∃ y x R y ∧ ∃ y x R y ↔ y ≠ Z

Proof

Step Hyp Ref Expression
1 df-rab ⊢ x ∈ dom ⁡ R | R x ≠ Z = x | x ∈ dom ⁡ R ∧ R x ≠ Z
2 vex ⊢ x ∈ V
3 2 eldm ⊢ x ∈ dom ⁡ R ↔ ∃ y x R y
4 imasng ⊢ x ∈ V → R x = y | x R y
5 4 elv ⊢ R x = y | x R y
6 5 neeq1i ⊢ R x ≠ Z ↔ y | x R y ≠ Z
7 df-sn ⊢ Z = y | y = Z
8 7 neeq2i ⊢ y | x R y ≠ Z ↔ y | x R y ≠ y | y = Z
9 nabbib ⊢ y | x R y ≠ y | y = Z ↔ ∃ y x R y ↔ ¬ y = Z
10 6 8 9 3bitri ⊢ R x ≠ Z ↔ ∃ y x R y ↔ ¬ y = Z
11 3 10 anbi12i ⊢ x ∈ dom ⁡ R ∧ R x ≠ Z ↔ ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z
12 11 abbii ⊢ x | x ∈ dom ⁡ R ∧ R x ≠ Z = x | ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z
13 1 12 eqtr2i ⊢ x | ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z = x ∈ dom ⁡ R | R x ≠ Z
14 13 a1i ⊢ R ∈ V ∧ Z ∈ W → x | ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z = x ∈ dom ⁡ R | R x ≠ Z
15 df-ne ⊢ y ≠ Z ↔ ¬ y = Z
16 15 bibi2i ⊢ x R y ↔ y ≠ Z ↔ x R y ↔ ¬ y = Z
17 16 exbii ⊢ ∃ y x R y ↔ y ≠ Z ↔ ∃ y x R y ↔ ¬ y = Z
18 17 anbi2i ⊢ ∃ y x R y ∧ ∃ y x R y ↔ y ≠ Z ↔ ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z
19 18 abbii ⊢ x | ∃ y x R y ∧ ∃ y x R y ↔ y ≠ Z = x | ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z
20 19 a1i ⊢ R ∈ V ∧ Z ∈ W → x | ∃ y x R y ∧ ∃ y x R y ↔ y ≠ Z = x | ∃ y x R y ∧ ∃ y x R y ↔ ¬ y = Z
21 suppval ⊢ R ∈ V ∧ Z ∈ W → R supp Z = x ∈ dom ⁡ R | R x ≠ Z
22 14 20 21 3eqtr4rd ⊢ R ∈ V ∧ Z ∈ W → R supp Z = x | ∃ y x R y ∧ ∃ y x R y ↔ y ≠ Z