Theorem 2reuimp 47912

Description: Implication of a double restricted existential uniqueness in terms of restricted existential quantification and restricted universal quantification if the class of the quantified elements is not empty. (Contributed by AV, 13-Mar-2023.)

Hypotheses

Ref	Expression
2reuimp.c	⊢ (𝑏 = 𝑐 → (𝜑 ↔ 𝜃))
2reuimp.d	⊢ (𝑎 = 𝑑 → (𝜑 ↔ 𝜒))
2reuimp.a	⊢ (𝑎 = 𝑑 → (𝜃 ↔ 𝜏))
2reuimp.e	⊢ (𝑏 = 𝑒 → (𝜑 ↔ 𝜂))
2reuimp.f	⊢ (𝑐 = 𝑓 → (𝜃 ↔ 𝜓))

Assertion

Ref	Expression
2reuimp	⊢ ((𝑉 ≠ ∅ ∧ ∃!𝑎 ∈ 𝑉 ∃!𝑏 ∈ 𝑉 𝜑) → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))

Distinct variable groups:   𝑉,𝑎,𝑏,𝑐,𝑑,𝑒,𝑓   𝜑,𝑐,𝑑,𝑒   𝜃,𝑏,𝑑,𝑒,𝑓   𝜒,𝑎,𝑒,𝑓   𝜏,𝑎,𝑒,𝑓   𝜂,𝑏,𝑓   𝜓,𝑐   𝜒,𝑐   𝜂,𝑐

Allowed substitution hints:   𝜑(𝑓, 𝑎, 𝑏)   𝜓(𝑒, 𝑓, 𝑎, 𝑏, 𝑑)   𝜒(𝑏, 𝑑)   𝜃(𝑎, 𝑐)   𝜏(𝑏, 𝑐, 𝑑)   𝜂(𝑒, 𝑎, 𝑑)

Proof of Theorem 2reuimp

Step	Hyp	Ref	Expression
1		r19.28zv 4469	. . . . . . . . . . . 12 ⊢ (𝑉 ≠ ∅ → (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) ↔ (𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐))))
2	1	bicomd 226	. . . . . . . . . . 11 ⊢ (𝑉 ≠ ∅ → ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) ↔ ∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐))))
3	2	imbi1d 344	. . . . . . . . . 10 ⊢ (𝑉 ≠ ∅ → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) ↔ (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
4		r19.36zv 4475	. . . . . . . . . . 11 ⊢ (𝑉 ≠ ∅ → (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) ↔ (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
5		r19.42v 3199	. . . . . . . . . . . . . 14 ⊢ (∃𝑐 ∈ 𝑉 ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ↔ ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
6		pm5.31r 845	. . . . . . . . . . . . . . . 16 ⊢ ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) → (𝜓 → (𝜂 ∧ 𝑒 = 𝑓)))
7		pm5.31r 845	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → ((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ 𝑎 = 𝑑)))
8		pm5.31r 845	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑎 = 𝑑 ∧ (𝜓 → (𝜂 ∧ 𝑒 = 𝑓))) → (𝜓 → (𝑎 = 𝑑 ∧ (𝜂 ∧ 𝑒 = 𝑓))))
9		an12 658	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑎 = 𝑑 ∧ (𝜂 ∧ 𝑒 = 𝑓)) ↔ (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))
10	8, 9	imbitrdi 254	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑎 = 𝑑 ∧ (𝜓 → (𝜂 ∧ 𝑒 = 𝑓))) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))
11	10	ancoms 464	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ 𝑎 = 𝑑) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))
12	7, 11	syl6 36	. . . . . . . . . . . . . . . 16 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
13	6, 12	sylan 592	. . . . . . . . . . . . . . 15 ⊢ (((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
14	13	reximi 3105	. . . . . . . . . . . . . 14 ⊢ (∃𝑐 ∈ 𝑉 ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
15	5, 14	sylbir 238	. . . . . . . . . . . . 13 ⊢ (((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
16	15	expcom 419	. . . . . . . . . . . 12 ⊢ (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
17	16	expd 421	. . . . . . . . . . 11 ⊢ (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))))
18	4, 17	biimtrrdi 257	. . . . . . . . . 10 ⊢ (𝑉 ≠ ∅ → ((∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
19	3, 18	sylbid 243	. . . . . . . . 9 ⊢ (𝑉 ≠ ∅ → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
20	19	com23 87	. . . . . . . 8 ⊢ (𝑉 ≠ ∅ → (𝜂 → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
21	20	imp4c 429	. . . . . . 7 ⊢ (𝑉 ≠ ∅ → (((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
22	21	ralimdv 3181	. . . . . 6 ⊢ (𝑉 ≠ ∅ → (∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
23	22	reximdv 3182	. . . . 5 ⊢ (𝑉 ≠ ∅ → (∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
24	23	ralimdv 3181	. . . 4 ⊢ (𝑉 ≠ ∅ → (∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
25	24	ralimdv 3181	. . 3 ⊢ (𝑉 ≠ ∅ → (∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
26	25	reximdv 3182	. 2 ⊢ (𝑉 ≠ ∅ → (∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
27		2reuimp.c	. . 3 ⊢ (𝑏 = 𝑐 → (𝜑 ↔ 𝜃))
28		2reuimp.d	. . 3 ⊢ (𝑎 = 𝑑 → (𝜑 ↔ 𝜒))
29		2reuimp.a	. . 3 ⊢ (𝑎 = 𝑑 → (𝜃 ↔ 𝜏))
30		2reuimp.e	. . 3 ⊢ (𝑏 = 𝑒 → (𝜑 ↔ 𝜂))
31		2reuimp.f	. . 3 ⊢ (𝑐 = 𝑓 → (𝜃 ↔ 𝜓))
32	27, 28, 29, 30, 31	2reuimp0 47911	. 2 ⊢ (∃!𝑎 ∈ 𝑉 ∃!𝑏 ∈ 𝑉 𝜑 → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)))
33	26, 32	impel 515	1 ⊢ ((𝑉 ≠ ∅ ∧ ∃!𝑎 ∈ 𝑉 ∃!𝑏 ∈ 𝑉 𝜑) → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ≠ wne 2960  ∀wral 3081  ∃wrex 3091  ∃!wreu 3369  ∅c0 4286

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-10 2179  ax-12 2216  ax-ext 2737

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2569  df-eu 2599  df-clab 2744  df-cleq 2757  df-clel 2840  df-ne 2961  df-ral 3082  df-rex 3092  df-reu 3372  df-dif 3909  df-nul 4287

This theorem is used by: (None)