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

Theorem 2nreu 4393
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 1187 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐴𝑋)
2 simpl2 1188 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐵𝑋)
3 simprl 769 . . . . . . 7 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝜓)
4 2nreu.b . . . . . . . . . . . 12 (𝑥 = 𝐵 → (𝜑𝜒))
54sbcieg 3810 . . . . . . . . . . 11 (𝐵𝑋 → ([𝐵 / 𝑥]𝜑𝜒))
653ad2ant2 1130 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ([𝐵 / 𝑥]𝜑𝜒))
76biimprd 250 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋𝐴𝐵) → (𝜒[𝐵 / 𝑥]𝜑))
87adantld 493 . . . . . . . 8 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ((𝜓𝜒) → [𝐵 / 𝑥]𝜑))
98imp 409 . . . . . . 7 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → [𝐵 / 𝑥]𝜑)
103, 9jca 514 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → (𝜓[𝐵 / 𝑥]𝜑))
11 simpl3 1189 . . . . . 6 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → 𝐴𝐵)
12 simp1 1132 . . . . . . 7 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → 𝐴𝑋)
13 simp2 1133 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → 𝐵𝑋)
14 simp3 1134 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵))
15 sbcan 3821 . . . . . . . . . . . . . 14 ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐴 / 𝑥]𝑥𝑦))
16 sbcan 3821 . . . . . . . . . . . . . . . 16 ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ↔ ([𝐴 / 𝑥]𝜑[𝐴 / 𝑥][𝑦 / 𝑥]𝜑))
17 2nreu.a . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝐴 → (𝜑𝜓))
1817sbcieg 3810 . . . . . . . . . . . . . . . . 17 (𝐴𝑋 → ([𝐴 / 𝑥]𝜑𝜓))
19 nfs1v 2160 . . . . . . . . . . . . . . . . . 18 𝑥[𝑦 / 𝑥]𝜑
2019sbcgf 3845 . . . . . . . . . . . . . . . . 17 (𝐴𝑋 → ([𝐴 / 𝑥][𝑦 / 𝑥]𝜑 ↔ [𝑦 / 𝑥]𝜑))
2118, 20anbi12d 632 . . . . . . . . . . . . . . . 16 (𝐴𝑋 → (([𝐴 / 𝑥]𝜑[𝐴 / 𝑥][𝑦 / 𝑥]𝜑) ↔ (𝜓 ∧ [𝑦 / 𝑥]𝜑)))
2216, 21syl5bb 285 . . . . . . . . . . . . . . 15 (𝐴𝑋 → ([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ↔ (𝜓 ∧ [𝑦 / 𝑥]𝜑)))
23 sbcne12 4364 . . . . . . . . . . . . . . . 16 ([𝐴 / 𝑥]𝑥𝑦𝐴 / 𝑥𝑥𝐴 / 𝑥𝑦)
24 csbvarg 4383 . . . . . . . . . . . . . . . . 17 (𝐴𝑋𝐴 / 𝑥𝑥 = 𝐴)
25 csbconstg 3902 . . . . . . . . . . . . . . . . 17 (𝐴𝑋𝐴 / 𝑥𝑦 = 𝑦)
2624, 25neeq12d 3077 . . . . . . . . . . . . . . . 16 (𝐴𝑋 → (𝐴 / 𝑥𝑥𝐴 / 𝑥𝑦𝐴𝑦))
2723, 26syl5bb 285 . . . . . . . . . . . . . . 15 (𝐴𝑋 → ([𝐴 / 𝑥]𝑥𝑦𝐴𝑦))
2822, 27anbi12d 632 . . . . . . . . . . . . . 14 (𝐴𝑋 → (([𝐴 / 𝑥](𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐴 / 𝑥]𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
2915, 28syl5bb 285 . . . . . . . . . . . . 13 (𝐴𝑋 → ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
30293ad2ant1 1129 . . . . . . . . . . . 12 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
3130sbcbidv 3827 . . . . . . . . . . 11 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ [𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦)))
32 sbcan 3821 . . . . . . . . . . . 12 ([𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦) ↔ ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐵 / 𝑦]𝐴𝑦))
33 sbcan 3821 . . . . . . . . . . . . . 14 ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ↔ ([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑))
34 sbcg 3847 . . . . . . . . . . . . . . . 16 (𝐵𝑋 → ([𝐵 / 𝑦]𝜓𝜓))
35 sbsbc 3776 . . . . . . . . . . . . . . . . . 18 ([𝑦 / 𝑥]𝜑[𝑦 / 𝑥]𝜑)
3635sbcbii 3829 . . . . . . . . . . . . . . . . 17 ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑦][𝑦 / 𝑥]𝜑)
37 sbccow 3795 . . . . . . . . . . . . . . . . . 18 ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑)
3837a1i 11 . . . . . . . . . . . . . . . . 17 (𝐵𝑋 → ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑))
3936, 38syl5bb 285 . . . . . . . . . . . . . . . 16 (𝐵𝑋 → ([𝐵 / 𝑦][𝑦 / 𝑥]𝜑[𝐵 / 𝑥]𝜑))
4034, 39anbi12d 632 . . . . . . . . . . . . . . 15 (𝐵𝑋 → (([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
41403ad2ant2 1130 . . . . . . . . . . . . . 14 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (([𝐵 / 𝑦]𝜓[𝐵 / 𝑦][𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
4233, 41syl5bb 285 . . . . . . . . . . . . 13 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ↔ (𝜓[𝐵 / 𝑥]𝜑)))
43 sbcne12 4364 . . . . . . . . . . . . . 14 ([𝐵 / 𝑦]𝐴𝑦𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦)
44 csbconstg 3902 . . . . . . . . . . . . . . . 16 (𝐵𝑋𝐵 / 𝑦𝐴 = 𝐴)
45 csbvarg 4383 . . . . . . . . . . . . . . . 16 (𝐵𝑋𝐵 / 𝑦𝑦 = 𝐵)
4644, 45neeq12d 3077 . . . . . . . . . . . . . . 15 (𝐵𝑋 → (𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦𝐴𝐵))
47463ad2ant2 1130 . . . . . . . . . . . . . 14 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (𝐵 / 𝑦𝐴𝐵 / 𝑦𝑦𝐴𝐵))
4843, 47syl5bb 285 . . . . . . . . . . . . 13 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦]𝐴𝑦𝐴𝐵))
4942, 48anbi12d 632 . . . . . . . . . . . 12 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → (([𝐵 / 𝑦](𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ [𝐵 / 𝑦]𝐴𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5032, 49syl5bb 285 . . . . . . . . . . 11 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦]((𝜓 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝐴𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5131, 50bitrd 281 . . . . . . . . . 10 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ([𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)))
5214, 51mpbird 259 . . . . . . . . 9 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → [𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
53 rspesbca 3864 . . . . . . . . 9 ((𝐵𝑋[𝐵 / 𝑦][𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦)) → ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5413, 52, 53syl2anc 586 . . . . . . . 8 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
55 sbcrex 3858 . . . . . . . 8 ([𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦) ↔ ∃𝑦𝑋 [𝐴 / 𝑥]((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5654, 55sylibr 236 . . . . . . 7 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → [𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
57 rspesbca 3864 . . . . . . 7 ((𝐴𝑋[𝐴 / 𝑥]𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
5812, 56, 57syl2anc 586 . . . . . 6 ((𝐴𝑋𝐵𝑋 ∧ ((𝜓[𝐵 / 𝑥]𝜑) ∧ 𝐴𝐵)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
591, 2, 10, 11, 58syl112anc 1370 . . . . 5 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
60 pm4.61 407 . . . . . . 7 (¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ ¬ 𝑥 = 𝑦))
61 df-ne 3017 . . . . . . . . 9 (𝑥𝑦 ↔ ¬ 𝑥 = 𝑦)
6261bicomi 226 . . . . . . . 8 𝑥 = 𝑦𝑥𝑦)
6362anbi2i 624 . . . . . . 7 (((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ ¬ 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
6460, 63bitri 277 . . . . . 6 (¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
65642rexbii 3248 . . . . 5 (∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ∃𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) ∧ 𝑥𝑦))
6659, 65sylibr 236 . . . 4 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
6766olcd 870 . . 3 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
68 ianor 978 . . . . 5 (¬ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
69 rexnal2 3258 . . . . . . 7 (∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
7069bicomi 226 . . . . . 6 (¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦) ↔ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦))
7170orbi2i 909 . . . . 5 ((¬ ∃𝑥𝑋 𝜑 ∨ ¬ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7268, 71bitri 277 . . . 4 (¬ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)) ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
73 reu2 3716 . . . 4 (∃!𝑥𝑋 𝜑 ↔ (∃𝑥𝑋 𝜑 ∧ ∀𝑥𝑋𝑦𝑋 ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7472, 73xchnxbir 335 . . 3 (¬ ∃!𝑥𝑋 𝜑 ↔ (¬ ∃𝑥𝑋 𝜑 ∨ ∃𝑥𝑋𝑦𝑋 ¬ ((𝜑 ∧ [𝑦 / 𝑥]𝜑) → 𝑥 = 𝑦)))
7567, 74sylibr 236 . 2 (((𝐴𝑋𝐵𝑋𝐴𝐵) ∧ (𝜓𝜒)) → ¬ ∃!𝑥𝑋 𝜑)
7675ex 415 1 ((𝐴𝑋𝐵𝑋𝐴𝐵) → ((𝜓𝜒) → ¬ ∃!𝑥𝑋 𝜑))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 208  wa 398  wo 843  w3a 1083   = wceq 1537  [wsb 2069  wcel 2114  wne 3016  wral 3138  wrex 3139  ∃!wreu 3140  [wsbc 3772  csb 3883
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2793
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3an 1085  df-tru 1540  df-fal 1550  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2654  df-clab 2800  df-cleq 2814  df-clel 2893  df-nfc 2963  df-ne 3017  df-ral 3143  df-rex 3144  df-reu 3145  df-v 3496  df-sbc 3773  df-csb 3884  df-dif 3939  df-nul 4292
This theorem is referenced by:  reusq0  14822  addsqn2reu  26017  addsqrexnreu  26018  addsqnreup  26019  addsq2nreurex  26020
  Copyright terms: Public domain W3C validator