Theorem symg2bas 19379

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 19377. (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 2734	. . . . 5 ⊢ (SymGrp‘{𝐽}) = (SymGrp‘{𝐽})
2		eqid 2734	. . . . 5 ⊢ (Base‘(SymGrp‘{𝐽})) = (Base‘(SymGrp‘{𝐽}))
3		eqid 2734	. . . . 5 ⊢ {𝐽} = {𝐽}
4	1, 2, 3	symg1bas 19377	. . . 4 ⊢ (𝐽 ∈ 𝑊 → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
5	4	ad2antll 729	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘(SymGrp‘{𝐽})) = {{⟨𝐽, 𝐽⟩}})
6		symg1bas.2	. . . 4 ⊢ 𝐵 = (Base‘𝐺)
7		symg1bas.1	. . . . . 6 ⊢ 𝐺 = (SymGrp‘𝐴)
8		symg2bas.0	. . . . . . . 8 ⊢ 𝐴 = {𝐼, 𝐽}
9		df-pr 4609	. . . . . . . . 9 ⊢ {𝐼, 𝐽} = ({𝐼} ∪ {𝐽})
10		sneq 4616	. . . . . . . . . . . 12 ⊢ (𝐼 = 𝐽 → {𝐼} = {𝐽})
11	10	uneq1d 4147	. . . . . . . . . . 11 ⊢ (𝐼 = 𝐽 → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
12	11	adantr 480	. . . . . . . . . 10 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = ({𝐽} ∪ {𝐽}))
13		unidm 4137	. . . . . . . . . 10 ⊢ ({𝐽} ∪ {𝐽}) = {𝐽}
14	12, 13	eqtrdi 2785	. . . . . . . . 9 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ({𝐼} ∪ {𝐽}) = {𝐽})
15	9, 14	eqtrid 2781	. . . . . . . 8 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {𝐼, 𝐽} = {𝐽})
16	8, 15	eqtrid 2781	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐴 = {𝐽})
17	16	fveq2d 6890	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (SymGrp‘𝐴) = (SymGrp‘{𝐽}))
18	7, 17	eqtrid 2781	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐺 = (SymGrp‘{𝐽}))
19	18	fveq2d 6890	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (Base‘𝐺) = (Base‘(SymGrp‘{𝐽})))
20	6, 19	eqtrid 2781	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = (Base‘(SymGrp‘{𝐽})))
21		id 22	. . . . . . . . 9 ⊢ (𝐼 = 𝐽 → 𝐼 = 𝐽)
22	21, 21	opeq12d 4861	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
23	22	adantr 480	. . . . . . 7 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
24	23	preq1d 4719	. . . . . 6 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
25		eqid 2734	. . . . . . 7 ⊢ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩
26		opex 5449	. . . . . . . 8 ⊢ ⟨𝐽, 𝐽⟩ ∈ V
27	26, 26	preqsn 4842	. . . . . . 7 ⊢ ({⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ↔ (⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ = ⟨𝐽, 𝐽⟩))
28	25, 25, 27	mpbir2an 711	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
29	24, 28	eqtrdi 2785	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩})
30		opeq1 4853	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐼, 𝐽⟩ = ⟨𝐽, 𝐽⟩)
31		opeq2 4854	. . . . . . . 8 ⊢ (𝐼 = 𝐽 → ⟨𝐽, 𝐼⟩ = ⟨𝐽, 𝐽⟩)
32	30, 31	preq12d 4721	. . . . . . 7 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩, ⟨𝐽, 𝐽⟩})
33	32, 28	eqtrdi 2785	. . . . . 6 ⊢ (𝐼 = 𝐽 → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
34	33	adantr 480	. . . . 5 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐽, 𝐽⟩})
35	29, 34	preq12d 4721	. . . 4 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}})
36		eqid 2734	. . . . 5 ⊢ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}
37		snex 5416	. . . . . 6 ⊢ {⟨𝐽, 𝐽⟩} ∈ V
38	37, 37	preqsn 4842	. . . . 5 ⊢ ({{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}} ↔ ({⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩} ∧ {⟨𝐽, 𝐽⟩} = {⟨𝐽, 𝐽⟩}))
39	36, 36, 38	mpbir2an 711	. . . 4 ⊢ {{⟨𝐽, 𝐽⟩}, {⟨𝐽, 𝐽⟩}} = {{⟨𝐽, 𝐽⟩}}
40	35, 39	eqtrdi 2785	. . 3 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}} = {{⟨𝐽, 𝐽⟩}})
41	5, 20, 40	3eqtr4d 2779	. 2 ⊢ ((𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
42	6	fvexi 6900	. . . 4 ⊢ 𝐵 ∈ V
43	42	a1i 11	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 ∈ V)
44		neqne 2939	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → 𝐼 ≠ 𝐽)
45	44	anim2i 617	. . . . . 6 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
46		df-3an 1088	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) ↔ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ 𝐼 ≠ 𝐽))
47	45, 46	sylibr 234	. . . . 5 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) ∧ ¬ 𝐼 = 𝐽) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
48	47	ancoms 458	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽))
49	7, 6, 8	symg2hash 19378	. . . 4 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊 ∧ 𝐼 ≠ 𝐽) → (♯‘𝐵) = 2)
50	48, 49	syl 17	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (♯‘𝐵) = 2)
51		id 22	. . . . . . . 8 ⊢ (𝐼 ∈ 𝑉 → 𝐼 ∈ 𝑉)
52	51	ancri 549	. . . . . . 7 ⊢ (𝐼 ∈ 𝑉 → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
53		id 22	. . . . . . . 8 ⊢ (𝐽 ∈ 𝑊 → 𝐽 ∈ 𝑊)
54	53	ancri 549	. . . . . . 7 ⊢ (𝐽 ∈ 𝑊 → (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊))
55	52, 54	anim12i 613	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)))
56		df-ne 2932	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 ↔ ¬ 𝐼 = 𝐽)
57		id 22	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → 𝐼 ≠ 𝐽)
58	57	ancri 549	. . . . . . 7 ⊢ (𝐼 ≠ 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
59	56, 58	sylbir 235	. . . . . 6 ⊢ (¬ 𝐼 = 𝐽 → (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽))
60		f1oprg 6873	. . . . . . 7 ⊢ (((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) → ((𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
61	60	imp 406	. . . . . 6 ⊢ ((((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) ∧ (𝐽 ∈ 𝑊 ∧ 𝐽 ∈ 𝑊)) ∧ (𝐼 ≠ 𝐽 ∧ 𝐼 ≠ 𝐽)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
62	55, 59, 61	syl2anr 597	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
63		eqidd 2735	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} = {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩})
64		id 22	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → 𝐴 = {𝐼, 𝐽})
65	63, 64, 64	f1oeq123d 6822	. . . . . 6 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
66	8, 65	ax-mp 5	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
67	62, 66	sylibr 234	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
68		prex 5417	. . . . 5 ⊢ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V
69	7, 6	elsymgbas2 19359	. . . . 5 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ V → ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴))
70	68, 69	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}:𝐴–1-1-onto→𝐴)
71	67, 70	sylibr 234	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵)
72		f1oprswap 6872	. . . . . 6 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
73		eqidd 2735	. . . . . . . 8 ⊢ (𝐴 = {𝐼, 𝐽} → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} = {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
74	73, 64, 64	f1oeq123d 6822	. . . . . . 7 ⊢ (𝐴 = {𝐼, 𝐽} → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽}))
75	8, 74	ax-mp 5	. . . . . 6 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:{𝐼, 𝐽}–1-1-onto→{𝐼, 𝐽})
76	72, 75	sylibr 234	. . . . 5 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
77	76	adantl 481	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
78		prex 5417	. . . . 5 ⊢ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V
79	7, 6	elsymgbas2 19359	. . . . 5 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ V → ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴))
80	78, 79	ax-mp 5	. . . 4 ⊢ ({⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ↔ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}:𝐴–1-1-onto→𝐴)
81	77, 80	sylibr 234	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵)
82		opex 5449	. . . . . 6 ⊢ ⟨𝐼, 𝐼⟩ ∈ V
83	82, 26	pm3.2i 470	. . . . 5 ⊢ (⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V)
84		opex 5449	. . . . . 6 ⊢ ⟨𝐼, 𝐽⟩ ∈ V
85		opex 5449	. . . . . 6 ⊢ ⟨𝐽, 𝐼⟩ ∈ V
86	84, 85	pm3.2i 470	. . . . 5 ⊢ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)
87	83, 86	pm3.2i 470	. . . 4 ⊢ ((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V))
88		opthg2 5464	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ ↔ (𝐼 = 𝐼 ∧ 𝐼 = 𝐽)))
89		eqtr 2754	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐼 ∧ 𝐼 = 𝐽) → 𝐼 = 𝐽)
90	88, 89	biimtrdi 253	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐼, 𝐽⟩ → 𝐼 = 𝐽))
91	90	necon3d 2952	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
92	91	com12 32	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
93	56, 92	sylbir 235	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩))
94	93	imp 406	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩)
95	52	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉))
96		opthg 5462	. . . . . . . . . . . 12 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐼 ∈ 𝑉) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
97	95, 96	syl 17	. . . . . . . . . . 11 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ ↔ (𝐼 = 𝐽 ∧ 𝐼 = 𝐼)))
98		simpl 482	. . . . . . . . . . 11 ⊢ ((𝐼 = 𝐽 ∧ 𝐼 = 𝐼) → 𝐼 = 𝐽)
99	97, 98	biimtrdi 253	. . . . . . . . . 10 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (⟨𝐼, 𝐼⟩ = ⟨𝐽, 𝐼⟩ → 𝐼 = 𝐽))
100	99	necon3d 2952	. . . . . . . . 9 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → (𝐼 ≠ 𝐽 → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
101	100	com12 32	. . . . . . . 8 ⊢ (𝐼 ≠ 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
102	56, 101	sylbir 235	. . . . . . 7 ⊢ (¬ 𝐼 = 𝐽 → ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
103	102	imp 406	. . . . . 6 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩)
104	94, 103	jca 511	. . . . 5 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → (⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩))
105	104	orcd 873	. . . 4 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → ((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)))
106		prneimg 4834	. . . 4 ⊢ (((⟨𝐼, 𝐼⟩ ∈ V ∧ ⟨𝐽, 𝐽⟩ ∈ V) ∧ (⟨𝐼, 𝐽⟩ ∈ V ∧ ⟨𝐽, 𝐼⟩ ∈ V)) → (((⟨𝐼, 𝐼⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐼, 𝐼⟩ ≠ ⟨𝐽, 𝐼⟩) ∨ (⟨𝐽, 𝐽⟩ ≠ ⟨𝐼, 𝐽⟩ ∧ ⟨𝐽, 𝐽⟩ ≠ ⟨𝐽, 𝐼⟩)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}))
107	87, 105, 106	mpsyl 68	. . 3 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})
108		hash2prd 14497	. . . 4 ⊢ ((𝐵 ∈ V ∧ (♯‘𝐵) = 2) → (({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}}))
109	108	imp 406	. . 3 ⊢ (((𝐵 ∈ V ∧ (♯‘𝐵) = 2) ∧ ({⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩} ∈ 𝐵 ∧ {⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩} ≠ {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩})) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
110	43, 50, 71, 81, 107, 109	syl23anc 1378	. 2 ⊢ ((¬ 𝐼 = 𝐽 ∧ (𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊)) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})
111	41, 110	pm2.61ian 811	1 ⊢ ((𝐼 ∈ 𝑉 ∧ 𝐽 ∈ 𝑊) → 𝐵 = {{⟨𝐼, 𝐼⟩, ⟨𝐽, 𝐽⟩}, {⟨𝐼, 𝐽⟩, ⟨𝐽, 𝐼⟩}})

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 206   ∧ wa 395   ∨ wo 847   ∧ w3a 1086   = wceq 1539   ∈ wcel 2107   ≠ wne 2931  Vcvv 3463   ∪ cun 3929  {csn 4606  {cpr 4608  ⟨cop 4612  –1-1-onto→wf1o 6540  ‘cfv 6541  2c2 12303  ♯chash 14352  Basecbs 17230  SymGrpcsymg 19355

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1794  ax-4 1808  ax-5 1909  ax-6 1966  ax-7 2006  ax-8 2109  ax-9 2117  ax-10 2140  ax-11 2156  ax-12 2176  ax-ext 2706  ax-rep 5259  ax-sep 5276  ax-nul 5286  ax-pow 5345  ax-pr 5412  ax-un 7737  ax-cnex 11193  ax-resscn 11194  ax-1cn 11195  ax-icn 11196  ax-addcl 11197  ax-addrcl 11198  ax-mulcl 11199  ax-mulrcl 11200  ax-mulcom 11201  ax-addass 11202  ax-mulass 11203  ax-distr 11204  ax-i2m1 11205  ax-1ne0 11206  ax-1rid 11207  ax-rnegex 11208  ax-rrecex 11209  ax-cnre 11210  ax-pre-lttri 11211  ax-pre-lttrn 11212  ax-pre-ltadd 11213  ax-pre-mulgt0 11214

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1779  df-nf 1783  df-sb 2064  df-mo 2538  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2808  df-nfc 2884  df-ne 2932  df-nel 3036  df-ral 3051  df-rex 3060  df-rmo 3363  df-reu 3364  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3880  df-dif 3934  df-un 3936  df-in 3938  df-ss 3948  df-pss 3951  df-nul 4314  df-if 4506  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-uni 4888  df-int 4927  df-iun 4973  df-br 5124  df-opab 5186  df-mpt 5206  df-tr 5240  df-id 5558  df-eprel 5564  df-po 5572  df-so 5573  df-fr 5617  df-we 5619  df-xp 5671  df-rel 5672  df-cnv 5673  df-co 5674  df-dm 5675  df-rn 5676  df-res 5677  df-ima 5678  df-pred 6301  df-ord 6366  df-on 6367  df-lim 6368  df-suc 6369  df-iota 6494  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-riota 7370  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7870  df-1st 7996  df-2nd 7997  df-frecs 8288  df-wrecs 8319  df-recs 8393  df-rdg 8432  df-1o 8488  df-2o 8489  df-oadd 8492  df-er 8727  df-map 8850  df-pm 8851  df-en 8968  df-dom 8969  df-sdom 8970  df-fin 8971  df-dju 9923  df-card 9961  df-pnf 11279  df-mnf 11280  df-xr 11281  df-ltxr 11282  df-le 11283  df-sub 11476  df-neg 11477  df-div 11903  df-nn 12249  df-2 12311  df-3 12312  df-4 12313  df-5 12314  df-6 12315  df-7 12316  df-8 12317  df-9 12318  df-n0 12510  df-xnn0 12583  df-z 12597  df-uz 12861  df-fz 13530  df-seq 14025  df-fac 14296  df-bc 14325  df-hash 14353  df-struct 17167  df-sets 17184  df-slot 17202  df-ndx 17214  df-base 17231  df-ress 17254  df-plusg 17287  df-tset 17293  df-efmnd 18852  df-symg 19356

This theorem is referenced by:  psgnprfval  19508  m2detleiblem1  22579  m2detleiblem5  22580  m2detleiblem6  22581  m2detleiblem3  22584  m2detleiblem4  22585  m2detleib  22586