MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  2nreu Structured version   Visualization version   GIF version

Theorem 2nreu 4372
Description: If there are two different sets fulfilling a wff (by implicit substitution), then there is no unique set fulfilling the wff. (Contributed by AV, 20-Jun-2023.)
Hypotheses
Ref Expression
2nreu.a (𝑥 = 𝐴 → (𝜑𝜓))
2nreu.b (𝑥 = 𝐵 → (𝜑𝜒))
Assertion
Ref Expression
2nreu ((𝐴𝑋𝐵𝑋𝐴𝐵) → ((𝜓𝜒) → ¬ ∃!𝑥𝑋 𝜑))
Distinct variable groups:   𝑥,𝐴   𝑥,𝐵   𝑥,𝑋   𝜒,𝑥   𝜓,𝑥
Allowed substitution hint:   𝜑(𝑥)

Proof of Theorem 2nreu
Dummy variable 𝑦 is distinct from all other variables.
StepHypRef Expression
1 simpl1 1189 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐴𝑋)
2 simpl2 1190 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐵𝑋)
3 simprl 767 . . . . . . 7 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝜓)
4 2nreu.b . . . . . . . . . . . 12 (𝑥 = 𝐵 → (𝜑𝜒))
54sbcieg 3751 . . . . . . . . . . 11 (𝐵𝑋 → ([𝐵 / 𝑥]𝜑𝜒))
653ad2ant2 1132 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ([𝐵 / 𝑥]𝜑𝜒))
76biimprd 247 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋𝐴𝐵) → (𝜒[𝐵 / 𝑥]𝜑))
87adantld 490 . . . . . . . 8 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ((𝜓𝜒) → [𝐵 / 𝑥]𝜑))
98imp 406 . . . . . . 7 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → [𝐵 / 𝑥]𝜑)
103, 9jca 511 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → (𝜓[𝐵 / 𝑥]𝜑))
11 simpl3 1191 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐴𝐵)
12 simp1 1134 . . . . . . 7 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → 𝐴𝑋)
13 simp2 1135 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → 𝐵𝑋)
14 simp3 1136 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵))
15 sbcan 3763 . . . . . . . . . . . . . 14 ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐴 / 𝑥]𝑥𝑦))
16 sbcan 3763 . . . . . . . . . . . . . . . 16 ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥][𝑦 / 𝑥]𝜑))
17 2nreu.a . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝐴 → (𝜑𝜓))
1817sbcieg 3751 . . . . . . . . . . . . . . . . 17 (𝐴𝑋 → ([𝐴 / 𝑥]𝜑𝜓))
19 nfs1v 2155 . . . . . . . . . . . . . . . . . 18 𝑥[𝑦 / 𝑥]𝜑
2019sbcgf 3789 . . . . . . . . . . . . . . . . 17 (𝐴𝑋 → ([𝐴 / 𝑥][𝑦 / 𝑥]𝜑 ↔ [𝑦 / 𝑥]𝜑))
2118, 20anbi12d 630 . . . . . . . . . . . . . . . 16 (𝐴𝑋 → (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥][𝑦 / 𝑥]𝜑) ↔ (𝜓 ∧ [𝑦 / 𝑥]𝜑)))
2216, 21syl5bb 282 . . . . . . . . . . . . . . 15 (𝐴𝑋 → ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ↔ (𝜓 ∧ [𝑦 / 𝑥]𝜑)))
23 sbcne12 4343 . . . . . . . . . . . . . . . 16 ([𝐴 / 𝑥]𝑥𝑦𝐴 / 𝑥𝑥𝐴 / 𝑥𝑦)
24 csbvarg 4362 . . . . . . . . . . . . . . . . 17 (𝐴𝑋𝐴 / 𝑥𝑥 = 𝐴)
25 csbconstg 3847 . . . . . . . . . . . . . . . . 17 (𝐴𝑋𝐴 / 𝑥𝑦 = 𝑦)
2624, 25neeq12d 3004 . . . . . . . . . . . . . . . 16 (𝐴𝑋 → (𝐴 / 𝑥𝑥𝐴 / 𝑥𝑦𝐴𝑦))
2723, 26syl5bb 282 . . . . . . . . . . . . . . 15 (𝐴𝑋 → ([𝐴 / 𝑥]𝑥𝑦𝐴𝑦))
2822, 27anbi12d 630 . . . . . . . . . . . . . 14 (𝐴𝑋 → (([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐴 / 𝑥]𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
2915, 28syl5bb 282 . . . . . . . . . . . . 13 (𝐴𝑋 → ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
30293ad2ant1 1131 . . . . . . . . . . . 12 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
3130sbcbidv 3770 . . . . . . . . . . 11 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ [𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
32 sbcan 3763 . . . . . . . . . . . 12 ([𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦) ↔ ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐵 / 𝑦]𝐴𝑦))
33 sbcan 3763 . . . . . . . . . . . . . 14 ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ↔ ([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑))
34 sbcg 3791 . . . . . . . . . . . . . . . 16 (𝐵𝑋 → ([𝐵 / 𝑦]𝜓𝜓))
35 sbsbc 3715 . . . . . . . . . . . . . . . . . 18 ([𝑦 / 𝑥]𝜑[𝑦 / 𝑥]𝜑)
3635sbcbii 3772 . . . . . . . . . . . . . . . . 17 ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑦][𝑦 / 𝑥]𝜑)
37 sbccow 3734 . . . . . . . . . . . . . . . . . 18 ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑)
3837a1i 11 . . . . . . . . . . . . . . . . 17 (𝐵𝑋 → ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑))
3936, 38syl5bb 282 . . . . . . . . . . . . . . . 16 (𝐵𝑋 → ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑))
4034, 39anbi12d 630 . . . . . . . . . . . . . . 15 (𝐵𝑋 → (([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
41403ad2ant2 1132 . . . . . . . . . . . . . 14 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
4233, 41syl5bb 282 . . . . . . . . . . . . 13 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
43 sbcne12 4343 . . . . . . . . . . . . . 14 ([𝐵 / 𝑦]𝐴𝑦𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦)
44 csbconstg 3847 . . . . . . . . . . . . . . . 16 (𝐵𝑋𝐵 / 𝑦𝐴 = 𝐴)
45 csbvarg 4362 . . . . . . . . . . . . . . . 16 (𝐵𝑋𝐵 / 𝑦𝑦 = 𝐵)
4644, 45neeq12d 3004 . . . . . . . . . . . . . . 15 (𝐵𝑋 → (𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦𝐴𝐵))
47463ad2ant2 1132 . . . . . . . . . . . . . 14 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦𝐴𝐵))
4843, 47syl5bb 282 . . . . . . . . . . . . 13 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦]𝐴𝑦𝐴𝐵))
4942, 48anbi12d 630 . . . . . . . . . . . 12 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐵 / 𝑦]𝐴𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5032, 49syl5bb 282 . . . . . . . . . . 11 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5131, 50bitrd 278 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5214, 51mpbird 256 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → [𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
53 rspesbca 3810 . . . . . . . . 9 ((𝐵𝑋[𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦)) → ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5413, 52, 53syl2anc 583 . . . . . . . 8 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
55 sbcrex 3804 . . . . . . . 8 ([𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5654, 55sylibr 233 . . . . . . 7 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → [𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
57 rspesbca 3810 . . . . . . 7 ((𝐴𝑋[𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5812, 56, 57syl2anc 583 . . . . . 6 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
591, 2, 10, 11, 58syl112anc 1372 . . . . 5 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
60 pm4.61 404 . . . . . . 7 (¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ ¬ 𝑥 = 𝑦))
61 df-ne 2943 . . . . . . . . 9 (𝑥𝑦 ↔ ¬ 𝑥 = 𝑦)
6261bicomi 223 . . . . . . . 8 𝑥 = 𝑦𝑥𝑦)
6362anbi2i 622 . . . . . . 7 (((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ ¬ 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
6460, 63bitri 274 . . . . . 6 (¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
65642rexbii 3178 . . . . 5 (∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
6659, 65sylibr 233 . . . 4 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
6766olcd 870 . . 3 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
68 ianor 978 . . . . 5 (¬ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
69 rexnal2 3186 . . . . . . 7 (∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
7069bicomi 223 . . . . . 6 (¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
7170orbi2i 909 . . . . 5 ((¬ ∃𝑥𝑋 𝜑 ∨ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7268, 71bitri 274 . . . 4 (¬ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
73 reu2 3655 . . . 4 (∃!𝑥𝑋 𝜑 ↔ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7472, 73xchnxbir 332 . . 3 (¬ ∃!𝑥𝑋 𝜑 ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7567, 74sylibr 233 . 2 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ¬ ∃!𝑥𝑋 𝜑)
7675ex 412 1 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ((𝜓𝜒) → ¬ ∃!𝑥𝑋 𝜑))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 395  wo 843  w3a 1085   = wceq 1539  [wsb 2068  wcel 2108  wne 2942  wral 3063  wrex 3064  ∃!wreu 3065  [wsbc 3711  csb 3828
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-ral 3068  df-rex 3069  df-reu 3070  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-nul 4254
This theorem is referenced by:  reusq0  15102  addsqn2reu  26494  addsqrexnreu  26495  addsqnreup  26496  addsq2nreurex  26497
  Copyright terms: Public domain W3C validator