Theorem symg2bas 19494

Description: The symmetric group on a pair is the symmetric group S₂ consisting of the identity and the transposition. Notice that this statement is valid for proper pairs only. In the case that both elements are identical, i.e., the pairs are actually singletons, this theorem would be about S₁, see Theorem symg1bas 19492. (Contributed by AV, 9-Dec-2018.) (Proof shortened by AV, 16-Jun-2022.)

Hypotheses

Ref	Expression
symg1bas.1	⊢ 𝐺 = (SymGrp‘𝐴)
symg1bas.2	⊢ 𝐵 = (Base‘𝐺)
symg2bas.0	⊢ 𝐴 = {𝐼, 𝐽}

Assertion

Ref	Expression
symg2bas	⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})

Proof of Theorem symg2bas

Step	Hyp	Ref	Expression
1		eqid 2766	. . . . 5 ⊢ (SymGrp‘{𝐽}) = (SymGrp‘{𝐽})
2		eqid 2766	. . . . 5 ⊢ (Base‘(SymGrp‘{𝐽})) = (Base‘(SymGrp‘{𝐽}))
3		eqid 2766	. . . . 5 ⊢ {𝐽} = {𝐽}
4	1, 2, 3	symg1bas 19492	. . . 4 ⊢ (𝐽 ∈ 𝑊 → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
5	4	ad2antll 742	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
6		symg1bas.2	. . . 4 ⊢ 𝐵 = (Base‘𝐺)
7		symg1bas.1	. . . . . 6 ⊢ 𝐺 = (SymGrp‘𝐴)
8		symg2bas.0	. . . . . . . 8 ⊢ 𝐴 = {𝐼, 𝐽}
9		df-pr 4597	. . . . . . . . 9 ⊢ {𝐼, 𝐽} = ({𝐼} ∪ {𝐽})
10		sneq 4604	. . . . . . . . . . . 12 ⊢ (𝐼 = 𝐽 → {𝐼} = {𝐽})
11	10	uneq1d 4124	. . . . . . . . . . 11 ⊢ (𝐼 = 𝐽 → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
12	11	adantr 486	. . . . . . . . . 10 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
13		unidm 4114	. . . . . . . . . 10 ⊢ ({𝐽} ∪ {𝐽}) = {𝐽}
14	12, 13	eqtrdi 2817	. . . . . . . . 9 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = {𝐽})
15	9, 14	eqtrid 2813	. . . . . . . 8 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {𝐼, 𝐽} = {𝐽})
16	8, 15	eqtrid 2813	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐴 = {𝐽})
17	16	fveq2d 6892	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (SymGrp‘𝐴) = (SymGrp‘{𝐽}))
18	7, 17	eqtrid 2813	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐺 = (SymGrp‘{𝐽}))
19	18	fveq2d 6892	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘𝐺) = (Base‘(SymGrp‘{𝐽})))
20	6, 19	eqtrid 2813	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = (Base‘(SymGrp‘{𝐽})))
21		id 23	. . . . . . . . 9 ⊢ (𝐼 = 𝐽 → 𝐼 = 𝐽)
22	21, 21	opeq12d 4851	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
23	22	adantr 486	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
24	23	preq1d 4710	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
25		eqid 2766	. . . . . . 7 ⊢ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩
26		opex 5450	. . . . . . . 8 ⊢ ⟨𝐽, 𝐽⟩ ∈ V
27	26, 26	preqsn 4832	. . . . . . 7 ⊢ ({⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ↔ (⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩))
28	25, 25, 27	mpbir2an 724	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
29	24, 28	eqtrdi 2817	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩})
30		opeq1 4843	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐽⟩ = ⟨𝐽, 𝐽⟩)
31		opeq2 4844	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐽, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
32	30, 31	preq12d 4712	. . . . . . 7 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
33	32, 28	eqtrdi 2817	. . . . . 6 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
34	33	adantr 486	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
35	29, 34	preq12d 4712	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}})
36		eqid 2766	. . . . 5 ⊢ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
37		snex 5415	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩} ∈ V
38	37, 37	preqsn 4832	. . . . 5 ⊢ ({{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}} ↔ ({⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ∧ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}))
39	36, 36, 38	mpbir2an 724	. . . 4 ⊢ {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}}
40	35, 39	eqtrdi 2817	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}})
41	5, 20, 40	3eqtr4d 2811	. 2 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
42	6	fvexi 6902	. . . 4 ⊢ 𝐵 ∈ V
43	42	a1i 11	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 ∈ V)
44		neqne 2969	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → 𝐼 ≠ 𝐽)
45	44	anim2i 629	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
46		df-3an 1105	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) ↔ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
47	45, 46	sylibr 237	. . . . 5 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
48	47	ancoms 464	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
49	7, 6, 8	symg2hash 19493	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) → (♯‘𝐵) = 2)
50	48, 49	syl 18	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (♯‘𝐵) = 2)
51		id 23	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
52	51	ancri 559	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
53		id 23	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑊 → 𝐽 ∈ 𝑊)
54	53	ancri 559	. . . . . . 7 ⊢ (𝐽 ∈ 𝑊 → (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊))
55	52, 54	anim12i 625	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)))
56		df-ne 2962	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 ↔ ¬ 𝐼 = 𝐽)
57		id 23	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → 𝐼 ≠ 𝐽)
58	57	ancri 559	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
59	56, 58	sylbir 238	. . . . . 6 ⊢ (¬ 𝐼 = 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
60		f1oprg 6874	. . . . . . 7 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) → ((𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
61	60	imp 412	. . . . . 6 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) ∧ (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
62	55, 59, 61	syl2anr 609	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
63		eqidd 2767	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩})
64		id 23	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → 𝐴 = {𝐼, 𝐽})
65	63, 64, 64	f1oeq123d 6821	. . . . . 6 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
66	8, 65	ax-mp 5	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
67	62, 66	sylibr 237	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
68		prex 5414	. . . . 5 ⊢ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V
69	7, 6	elsymgbas2 19474	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴))
70	68, 69	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
71	67, 70	sylibr 237	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵)
72		f1oprswap 6873	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
73		eqidd 2767	. . . . . . . 8 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
74	73, 64, 64	f1oeq123d 6821	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
75	8, 74	ax-mp 5	. . . . . 6 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
76	72, 75	sylibr 237	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
77	76	adantl 487	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
78		prex 5414	. . . . 5 ⊢ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V
79	7, 6	elsymgbas2 19474	. . . . 5 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴))
80	78, 79	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
81	77, 80	sylibr 237	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵)
82		opex 5450	. . . . . 6 ⊢ ⟨𝐼, 𝐼⟩ ∈ V
83	82, 26	pm3.2i 476	. . . . 5 ⊢ (⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V)
84		opex 5450	. . . . . 6 ⊢ ⟨𝐼, 𝐽⟩ ∈ V
85		opex 5450	. . . . . 6 ⊢ ⟨𝐽, 𝐼⟩ ∈ V
86	84, 85	pm3.2i 476	. . . . 5 ⊢ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)
87	83, 86	pm3.2i 476	. . . 4 ⊢ ((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V))
88		opthg2 5466	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ ↔ (𝐼 = 𝐼 ∧ 𝐼 = 𝐽)))
89		eqtr 2786	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐼 ∧ 𝐼 = 𝐽) → 𝐼 = 𝐽)
90	88, 89	biimtrdi 256	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ → 𝐼 = 𝐽))
91	90	necon3d 2982	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
92	91	com12 33	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
93	56, 92	sylbir 238	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
94	93	imp 412	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩)
95	52	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
96		opthg 5464	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
97	95, 96	syl 18	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
98		simpl 488	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐽 ∧ 𝐼 = 𝐼) → 𝐼 = 𝐽)
99	97, 98	biimtrdi 256	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ → 𝐼 = 𝐽))
100	99	necon3d 2982	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
101	100	com12 33	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
102	56, 101	sylbir 238	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
103	102	imp 412	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩)
104	94, 103	jca 521	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
105	104	orcd 887	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)))
106		prneimg 4824	. . . 4 ⊢ (((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)) → (((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}))
107	87, 105, 106	mpsyl 69	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
108		hash2prd 14532	. . . 4 ⊢ ((𝐵 ∈ V ∧ (♯‘𝐵) = 2) → (({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}}))
109	108	imp 412	. . 3 ⊢ (((𝐵 ∈ V ∧ (♯‘𝐵) = 2) ∧ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
110	43, 50, 71, 81, 107, 109	syl23anc 1404	. 2 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
111	41, 110	pm2.61ian 824	1 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})

This proof depends on syntax axioms:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 401   ∨ wo 861   ∧ w3a 1103   = wceq 1570   ∈ wcel 2146   ≠ wne 2961  Vcvv 3458   ∪ cun 3906  {csn 4594  {cpr 4596  ⟨cop 4600  –1-1-onto→wf1o 6542  ‘cfv 6543  2c2 12313  ♯chash 14386  Basecbs 17294  SymGrpcsymg 19470

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-11 2195  ax-12 2216  ax-ext 2738  ax-rep 5243  ax-sep 5262  ax-nul 5274  ax-pow 5341  ax-pr 5409  ax-un 7745  ax-cnex 11174  ax-resscn 11175  ax-1cn 11176  ax-icn 11177  ax-addcl 11178  ax-addrcl 11179  ax-mulcl 11180  ax-mulrcl 11181  ax-mulcom 11182  ax-addass 11183  ax-mulass 11184  ax-distr 11185  ax-i2m1 11186  ax-1ne0 11187  ax-1rid 11188  ax-rnegex 11189  ax-rrecex 11190  ax-cnre 11191  ax-pre-lttri 11192  ax-pre-lttrn 11193  ax-pre-ltadd 11194  ax-pre-mulgt0 11195

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3or 1104  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-nf 1817  df-sb 2100  df-mo 2570  df-eu 2600  df-clab 2745  df-cleq 2758  df-clel 2841  df-nfc 2915  df-ne 2962  df-nel 3068  df-ral 3083  df-rex 3093  df-rmo 3372  df-reu 3373  df-rab 3420  df-v 3460  df-sbc 3748  df-csb 3857  df-dif 3911  df-un 3913  df-in 3915  df-ss 3925  df-pss 3928  df-nul 4290  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-tp 4599  df-op 4601  df-uni 4878  df-int 4918  df-iun 4963  df-br 5115  df-opab 5179  df-mpt 5198  df-tr 5224  df-id 5561  df-eprel 5566  df-po 5574  df-so 5575  df-fr 5619  df-we 5621  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6309  df-ord 6370  df-on 6371  df-lim 6372  df-suc 6373  df-iota 6499  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7380  df-ov 7426  df-oprab 7427  df-mpo 7428  df-om 7872  df-1st 7995  df-2nd 7996  df-frecs 8287  df-wrecs 8318  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-er 8703  df-map 8835  df-pm 8836  df-en 8953  df-dom 8954  df-sdom 8955  df-fin 8956  df-dju 9906  df-card 9944  df-pnf 11263  df-mnf 11264  df-xr 11265  df-ltxr 11266  df-le 11267  df-sub 11461  df-neg 11462  df-div 11890  df-nn 12252  df-2 12321  df-3 12322  df-4 12323  df-5 12324  df-6 12325  df-7 12326  df-8 12327  df-9 12328  df-n0 12523  df-xnn0 12596  df-z 12610  df-uz 12881  df-fz 13554  df-seq 14058  df-fac 14330  df-bc 14359  df-hash 14387  df-struct 17232  df-sets 17249  df-slot 17267  df-ndx 17279  df-base 17295  df-ress 17316  df-plusg 17348  df-tset 17354  df-efmnd 18959  df-symg 19471

This theorem is used by:  psgnprfval  19622  m2detleiblem1  22818  m2detleiblem5  22819  m2detleiblem6  22820  m2detleiblem3  22823  m2detleiblem4  22824  m2detleib  22825