Theorem eldisjlem19 39590

Description: Special case of disjlem19 39581 (together with membpartlem19 39591, this is former prtlem19 39680). (Contributed by Peter Mazsa, 21-Oct-2021.)

Assertion

Ref	Expression
eldisjlem19	⊢ (𝐵 ∈ 𝑉 → ( ElDisj 𝐴 → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ 𝑢) → 𝑢 = [𝐵] ∼ 𝐴)))

Distinct variable groups:   𝑢,𝐴   𝑢,𝐵   𝑢,𝑉

Proof of Theorem eldisjlem19

Step	Hyp	Ref	Expression
1		df-eldisj 39469	. . . . . . . 8 ⊢ ( ElDisj 𝐴 ↔ Disj (◡ E ↾ 𝐴))
2		disjlem19 39581	. . . . . . . 8 ⊢ (𝐵 ∈ 𝑉 → ( Disj (◡ E ↾ 𝐴) → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ [𝑢](◡ E ↾ 𝐴)) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴))))
3	1, 2	biimtrid 245	. . . . . . 7 ⊢ (𝐵 ∈ 𝑉 → ( ElDisj 𝐴 → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ [𝑢](◡ E ↾ 𝐴)) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴))))
4	3	imp 411	. . . . . 6 ⊢ ((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ [𝑢](◡ E ↾ 𝐴)) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴)))
5	4	expdimp 457	. . . . 5 ⊢ (((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) ∧ 𝑢 ∈ dom (◡ E ↾ 𝐴)) → (𝐵 ∈ [𝑢](◡ E ↾ 𝐴) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴)))
6		eccnvepres3 38969	. . . . . . . 8 ⊢ (𝑢 ∈ dom (◡ E ↾ 𝐴) → [𝑢](◡ E ↾ 𝐴) = 𝑢)
7	6	eleq2d 2848	. . . . . . 7 ⊢ (𝑢 ∈ dom (◡ E ↾ 𝐴) → (𝐵 ∈ [𝑢](◡ E ↾ 𝐴) ↔ 𝐵 ∈ 𝑢))
8	6	eqeq1d 2764	. . . . . . 7 ⊢ (𝑢 ∈ dom (◡ E ↾ 𝐴) → ([𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴) ↔ 𝑢 = [𝐵] ≀ (◡ E ↾ 𝐴)))
9	7, 8	imbi12d 347	. . . . . 6 ⊢ (𝑢 ∈ dom (◡ E ↾ 𝐴) → ((𝐵 ∈ [𝑢](◡ E ↾ 𝐴) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴)) ↔ (𝐵 ∈ 𝑢 → 𝑢 = [𝐵] ≀ (◡ E ↾ 𝐴))))
10	9	adantl 486	. . . . 5 ⊢ (((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) ∧ 𝑢 ∈ dom (◡ E ↾ 𝐴)) → ((𝐵 ∈ [𝑢](◡ E ↾ 𝐴) → [𝑢](◡ E ↾ 𝐴) = [𝐵] ≀ (◡ E ↾ 𝐴)) ↔ (𝐵 ∈ 𝑢 → 𝑢 = [𝐵] ≀ (◡ E ↾ 𝐴))))
11	5, 10	mpbid 235	. . . 4 ⊢ (((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) ∧ 𝑢 ∈ dom (◡ E ↾ 𝐴)) → (𝐵 ∈ 𝑢 → 𝑢 = [𝐵] ≀ (◡ E ↾ 𝐴)))
12		df-coels 39179	. . . . . 6 ⊢ ∼ 𝐴 = ≀ (◡ E ↾ 𝐴)
13	12	eceq2i 8735	. . . . 5 ⊢ [𝐵] ∼ 𝐴 = [𝐵] ≀ (◡ E ↾ 𝐴)
14	13	eqeq2i 2775	. . . 4 ⊢ (𝑢 = [𝐵] ∼ 𝐴 ↔ 𝑢 = [𝐵] ≀ (◡ E ↾ 𝐴))
15	11, 14	imbitrrdi 255	. . 3 ⊢ (((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) ∧ 𝑢 ∈ dom (◡ E ↾ 𝐴)) → (𝐵 ∈ 𝑢 → 𝑢 = [𝐵] ∼ 𝐴))
16	15	expimpd 458	. 2 ⊢ ((𝐵 ∈ 𝑉 ∧ ElDisj 𝐴) → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ 𝑢) → 𝑢 = [𝐵] ∼ 𝐴))
17	16	ex 417	1 ⊢ (𝐵 ∈ 𝑉 → ( ElDisj 𝐴 → ((𝑢 ∈ dom (◡ E ↾ 𝐴) ∧ 𝐵 ∈ 𝑢) → 𝑢 = [𝐵] ∼ 𝐴)))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1569   ∈ wcel 2142   E cep 5559  ^◡ccnv 5659  dom cdm 5660   ↾ cres 5662  [cec 8690   ≀ ccoss 38860   ∼ ccoels 38861   Disj wdisjALTV 38896   ElDisj weldisj 38898

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1824  ax-4 1838  ax-5 1939  ax-6 1996  ax-7 2037  ax-8 2144  ax-9 2152  ax-10 2175  ax-11 2191  ax-12 2212  ax-ext 2734  ax-sep 5256  ax-pr 5403

This proof depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1104  df-tru 1572  df-fal 1582  df-ex 1809  df-nf 1813  df-sb 2096  df-mo 2566  df-eu 2596  df-clab 2741  df-cleq 2754  df-clel 2837  df-nfc 2911  df-ne 2958  df-ral 3079  df-rex 3089  df-rmo 3368  df-rab 3416  df-v 3456  df-dif 3907  df-un 3909  df-in 3911  df-ss 3921  df-nul 4286  df-if 4487  df-sn 4589  df-pr 4591  df-op 4595  df-br 5109  df-opab 5173  df-id 5555  df-eprel 5560  df-xp 5666  df-rel 5667  df-cnv 5668  df-co 5669  df-dm 5670  df-rn 5671  df-res 5672  df-ima 5673  df-ec 8694  df-coss 39178  df-coels 39179  df-cnvrefrel 39284  df-disjALTV 39467  df-eldisj 39469

This theorem is used by:  membpartlem19  39591