Theorem 2reuimp 43304

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 4444	. . . . . . . . . . . 12 ⊢ (𝑉 ≠ ∅ → (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) ↔ (𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐))))
2	1	bicomd 225	. . . . . . . . . . 11 ⊢ (𝑉 ≠ ∅ → ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) ↔ ∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐))))
3	2	imbi1d 344	. . . . . . . . . 10 ⊢ (𝑉 ≠ ∅ → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) ↔ (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
4		r19.36zv 4450	. . . . . . . . . . 11 ⊢ (𝑉 ≠ ∅ → (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) ↔ (∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
5		r19.42v 3348	. . . . . . . . . . . . . 14 ⊢ (∃𝑐 ∈ 𝑉 ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ↔ ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)))
6		pm5.31r 829	. . . . . . . . . . . . . . . 16 ⊢ ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) → (𝜓 → (𝜂 ∧ 𝑒 = 𝑓)))
7		pm5.31r 829	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → ((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ 𝑎 = 𝑑)))
8		pm5.31r 829	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑎 = 𝑑 ∧ (𝜓 → (𝜂 ∧ 𝑒 = 𝑓))) → (𝜓 → (𝑎 = 𝑑 ∧ (𝜂 ∧ 𝑒 = 𝑓))))
9		an12 643	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝑎 = 𝑑 ∧ (𝜂 ∧ 𝑒 = 𝑓)) ↔ (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))
10	8, 9	syl6ib 253	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝑎 = 𝑑 ∧ (𝜓 → (𝜂 ∧ 𝑒 = 𝑓))) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))
11	10	ancoms 461	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ 𝑎 = 𝑑) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))
12	7, 11	syl6 35	. . . . . . . . . . . . . . . 16 ⊢ (((𝜓 → (𝜂 ∧ 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
13	6, 12	sylan 582	. . . . . . . . . . . . . . 15 ⊢ (((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
14	13	reximi 3241	. . . . . . . . . . . . . 14 ⊢ (∃𝑐 ∈ 𝑉 ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
15	5, 14	sylbir 237	. . . . . . . . . . . . 13 ⊢ (((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) ∧ ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))
16	15	expcom 416	. . . . . . . . . . . 12 ⊢ (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → ((𝜂 ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
17	16	expd 418	. . . . . . . . . . 11 ⊢ (∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))))
18	4, 17	syl6bir 256	. . . . . . . . . 10 ⊢ (𝑉 ≠ ∅ → ((∀𝑐 ∈ 𝑉 (𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
19	3, 18	sylbid 242	. . . . . . . . 9 ⊢ (𝑉 ≠ ∅ → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → (𝜂 → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
20	19	com23 86	. . . . . . . 8 ⊢ (𝑉 ≠ ∅ → (𝜂 → (((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑) → ((𝜓 → 𝑒 = 𝑓) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))))
21	20	imp4c 426	. . . . . . 7 ⊢ (𝑉 ≠ ∅ → (((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
22	21	ralimdv 3176	. . . . . 6 ⊢ (𝑉 ≠ ∅ → (∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
23	22	reximdv 3271	. . . . 5 ⊢ (𝑉 ≠ ∅ → (∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
24	23	ralimdv 3176	. . . 4 ⊢ (𝑉 ≠ ∅ → (∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
25	24	ralimdv 3176	. . 3 ⊢ (𝑉 ≠ ∅ → (∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)) → ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓))))))
26	25	reximdv 3271	. 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 43303	. 2 ⊢ (∃!𝑎 ∈ 𝑉 ∃!𝑏 ∈ 𝑉 𝜑 → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ((𝜂 ∧ ((𝜒 ∧ ∀𝑐 ∈ 𝑉 (𝜏 → 𝑏 = 𝑐)) → 𝑎 = 𝑑)) ∧ (𝜓 → 𝑒 = 𝑓)))
33	26, 32	impel 508	1 ⊢ ((𝑉 ≠ ∅ ∧ ∃!𝑎 ∈ 𝑉 ∃!𝑏 ∈ 𝑉 𝜑) → ∃𝑎 ∈ 𝑉 ∀𝑑 ∈ 𝑉 ∀𝑏 ∈ 𝑉 ∃𝑒 ∈ 𝑉 ∀𝑓 ∈ 𝑉 ∃𝑐 ∈ 𝑉 ((𝜒 ∧ (𝜏 → 𝑏 = 𝑐)) → (𝜓 → (𝜂 ∧ (𝑎 = 𝑑 ∧ 𝑒 = 𝑓)))))

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   ≠ wne 3014  ∀wral 3136  ∃wrex 3137  ∃!wreu 3138  ∅c0 4289

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1905  ax-6 1964  ax-7 2009  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2154  ax-12 2170  ax-ext 2791

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-tru 1534  df-ex 1775  df-nf 1779  df-sb 2064  df-mo 2616  df-eu 2648  df-clab 2798  df-cleq 2812  df-clel 2891  df-nfc 2961  df-ne 3015  df-ral 3141  df-rex 3142  df-reu 3143  df-dif 3937  df-nul 4290

This theorem is referenced by: (None)