Metamath Proof Explorer


Theorem degenmgm

Description: A degenerate magma: although the operation is not defined for all pairs of elements of the base set ( ( (/) ( +gM ) 1o ) and ( (/) ( +gM ) (/) ) are not defined, and therefore are (/) by definition, which is contained in the base set), and its domain is not (a subset of) the base set ( 2o is in the domain of the operation, but not in the base set) , the structure M is still a magma according to our definition. (Contributed by AV, 18-Aug-2026)

Ref Expression
Hypothesis degenmgm.m 𝑀 = { ⟨ ( Base ‘ ndx ) , { ∅ , 1o } ⟩ , ⟨ ( +g ‘ ndx ) , { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ⟩ }
Assertion degenmgm 𝑀 ∈ Mgm

Proof

Step Hyp Ref Expression
1 degenmgm.m 𝑀 = { ⟨ ( Base ‘ ndx ) , { ∅ , 1o } ⟩ , ⟨ ( +g ‘ ndx ) , { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ⟩ }
2 0ex ∅ ∈ V
3 2 prid1 ∅ ∈ { ∅ , 1o }
4 3 3 pm3.2i ( ∅ ∈ { ∅ , 1o } ∧ ∅ ∈ { ∅ , 1o } )
5 1oelpr 1o ∈ { ∅ , 1o }
6 5 5 pm3.2i ( 1o ∈ { ∅ , 1o } ∧ 1o ∈ { ∅ , 1o } )
7 4 6 pm3.2i ( ( ∅ ∈ { ∅ , 1o } ∧ ∅ ∈ { ∅ , 1o } ) ∧ ( 1o ∈ { ∅ , 1o } ∧ 1o ∈ { ∅ , 1o } ) )
8 1oex 1o ∈ V
9 oveq1 ( 𝑥 = ∅ → ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( ∅ { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) )
10 df-ov ( ∅ { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ )
11 9 10 eqtrdi ( 𝑥 = ∅ → ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) )
12 11 eleq1d ( 𝑥 = ∅ → ( ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) )
13 12 ralbidv ( 𝑥 = ∅ → ( ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) )
14 oveq1 ( 𝑥 = 1o → ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( 1o { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) )
15 df-ov ( 1o { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ )
16 14 15 eqtrdi ( 𝑥 = 1o → ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) )
17 16 eleq1d ( 𝑥 = 1o → ( ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) )
18 17 ralbidv ( 𝑥 = 1o → ( ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) )
19 2 8 13 18 ralpr ( ∀ 𝑥 ∈ { ∅ , 1o } ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ( ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ∧ ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) )
20 opeq2 ( 𝑦 = ∅ → ⟨ ∅ , 𝑦 ⟩ = ⟨ ∅ , ∅ ⟩ )
21 20 fveq2d ( 𝑦 = ∅ → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , ∅ ⟩ ) )
22 1n0 1o ≠ ∅
23 22 necomi ∅ ≠ 1o
24 23 orci ( ∅ ≠ 1o ∨ ∅ ≠ 1o )
25 2 2 opthne ( ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 1o ⟩ ↔ ( ∅ ≠ 1o ∨ ∅ ≠ 1o ) )
26 24 25 mpbir ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 1o
27 23 orci ( ∅ ≠ 1o ∨ ∅ ≠ 2o )
28 2 2 opthne ( ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 2o ⟩ ↔ ( ∅ ≠ 1o ∨ ∅ ≠ 2o ) )
29 27 28 mpbir ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 2o
30 23 orci ( ∅ ≠ 1o ∨ ∅ ≠ ∅ )
31 2 2 opthne ( ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , ∅ ⟩ ↔ ( ∅ ≠ 1o ∨ ∅ ≠ ∅ ) )
32 30 31 mpbir ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , ∅ ⟩
33 opex ⟨ ∅ , ∅ ⟩ ∈ V
34 8 8 8 33 fvtp0 ( ( ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 1o ⟩ ∧ ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , 2o ⟩ ∧ ⟨ ∅ , ∅ ⟩ ≠ ⟨ 1o , ∅ ⟩ ) → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , ∅ ⟩ ) = ∅ )
35 26 29 32 34 mp3an ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , ∅ ⟩ ) = ∅
36 21 35 eqtrdi ( 𝑦 = ∅ → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) = ∅ )
37 36 eleq1d ( 𝑦 = ∅ → ( ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ ∅ ∈ { ∅ , 1o } ) )
38 opeq2 ( 𝑦 = 1o → ⟨ ∅ , 𝑦 ⟩ = ⟨ ∅ , 1o ⟩ )
39 38 fveq2d ( 𝑦 = 1o → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 1o ⟩ ) )
40 23 orci ( ∅ ≠ 1o ∨ 1o ≠ 1o )
41 2 8 opthne ( ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 1o ⟩ ↔ ( ∅ ≠ 1o ∨ 1o ≠ 1o ) )
42 40 41 mpbir ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 1o
43 23 orci ( ∅ ≠ 1o ∨ 1o ≠ 2o )
44 2 8 opthne ( ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 2o ⟩ ↔ ( ∅ ≠ 1o ∨ 1o ≠ 2o ) )
45 43 44 mpbir ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 2o
46 22 olci ( ∅ ≠ 1o ∨ 1o ≠ ∅ )
47 2 8 opthne ( ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩ ↔ ( ∅ ≠ 1o ∨ 1o ≠ ∅ ) )
48 46 47 mpbir ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩
49 opex ⟨ ∅ , 1o ⟩ ∈ V
50 8 8 8 49 fvtp0 ( ( ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 1o ⟩ ∧ ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , 2o ⟩ ∧ ⟨ ∅ , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩ ) → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 1o ⟩ ) = ∅ )
51 42 45 48 50 mp3an ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 1o ⟩ ) = ∅
52 39 51 eqtrdi ( 𝑦 = 1o → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) = ∅ )
53 52 eleq1d ( 𝑦 = 1o → ( ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ ∅ ∈ { ∅ , 1o } ) )
54 2 8 37 53 ralpr ( ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ ( ∅ ∈ { ∅ , 1o } ∧ ∅ ∈ { ∅ , 1o } ) )
55 opeq2 ( 𝑦 = ∅ → ⟨ 1o , 𝑦 ⟩ = ⟨ 1o , ∅ ⟩ )
56 55 fveq2d ( 𝑦 = ∅ → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , ∅ ⟩ ) )
57 22 olci ( 1o ≠ 1o ∨ 1o ≠ ∅ )
58 8 8 opthne ( ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩ ↔ ( 1o ≠ 1o ∨ 1o ≠ ∅ ) )
59 57 58 mpbir ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩
60 2on0 2o ≠ ∅
61 60 olci ( 1o ≠ 1o ∨ 2o ≠ ∅ )
62 2oex 2o ∈ V
63 8 62 opthne ( ⟨ 1o , 2o ⟩ ≠ ⟨ 1o , ∅ ⟩ ↔ ( 1o ≠ 1o ∨ 2o ≠ ∅ ) )
64 61 63 mpbir ⟨ 1o , 2o ⟩ ≠ ⟨ 1o , ∅ ⟩
65 opex ⟨ 1o , ∅ ⟩ ∈ V
66 65 8 fvtp3 ( ( ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩ ∧ ⟨ 1o , 2o ⟩ ≠ ⟨ 1o , ∅ ⟩ ) → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , ∅ ⟩ ) = 1o )
67 59 64 66 mp2an ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , ∅ ⟩ ) = 1o
68 56 67 eqtrdi ( 𝑦 = ∅ → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) = 1o )
69 68 eleq1d ( 𝑦 = ∅ → ( ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ 1o ∈ { ∅ , 1o } ) )
70 opeq2 ( 𝑦 = 1o → ⟨ 1o , 𝑦 ⟩ = ⟨ 1o , 1o ⟩ )
71 70 fveq2d ( 𝑦 = 1o → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) = ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 1o ⟩ ) )
72 1one2o 1o ≠ 2o
73 72 olci ( 1o ≠ 1o ∨ 1o ≠ 2o )
74 8 8 opthne ( ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , 2o ⟩ ↔ ( 1o ≠ 1o ∨ 1o ≠ 2o ) )
75 73 74 mpbir ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , 2o
76 opex ⟨ 1o , 1o ⟩ ∈ V
77 76 8 fvtp1 ( ( ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , 2o ⟩ ∧ ⟨ 1o , 1o ⟩ ≠ ⟨ 1o , ∅ ⟩ ) → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 1o ⟩ ) = 1o )
78 75 59 77 mp2an ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 1o ⟩ ) = 1o
79 71 78 eqtrdi ( 𝑦 = 1o → ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) = 1o )
80 79 eleq1d ( 𝑦 = 1o → ( ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ 1o ∈ { ∅ , 1o } ) )
81 2 8 69 80 ralpr ( ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ↔ ( 1o ∈ { ∅ , 1o } ∧ 1o ∈ { ∅ , 1o } ) )
82 54 81 anbi12i ( ( ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ ∅ , 𝑦 ⟩ ) ∈ { ∅ , 1o } ∧ ∀ 𝑦 ∈ { ∅ , 1o } ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ‘ ⟨ 1o , 𝑦 ⟩ ) ∈ { ∅ , 1o } ) ↔ ( ( ∅ ∈ { ∅ , 1o } ∧ ∅ ∈ { ∅ , 1o } ) ∧ ( 1o ∈ { ∅ , 1o } ∧ 1o ∈ { ∅ , 1o } ) ) )
83 19 82 bitri ( ∀ 𝑥 ∈ { ∅ , 1o } ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ↔ ( ( ∅ ∈ { ∅ , 1o } ∧ ∅ ∈ { ∅ , 1o } ) ∧ ( 1o ∈ { ∅ , 1o } ∧ 1o ∈ { ∅ , 1o } ) ) )
84 7 83 mpbir 𝑥 ∈ { ∅ , 1o } ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o }
85 eqid ( Base ‘ 𝑀 ) = ( Base ‘ 𝑀 )
86 1 85 degenmgmbas ( Base ‘ 𝑀 ) = { ∅ , 1o }
87 86 eqcomi { ∅ , 1o } = ( Base ‘ 𝑀 )
88 tpex { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ∈ V
89 1 grpplusg ( { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } ∈ V → { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } = ( +g𝑀 ) )
90 88 89 ax-mp { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } = ( +g𝑀 )
91 87 90 ismgmn0 ( ∅ ∈ { ∅ , 1o } → ( 𝑀 ∈ Mgm ↔ ∀ 𝑥 ∈ { ∅ , 1o } ∀ 𝑦 ∈ { ∅ , 1o } ( 𝑥 { ⟨ ⟨ 1o , 1o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , 2o ⟩ , 1o ⟩ , ⟨ ⟨ 1o , ∅ ⟩ , 1o ⟩ } 𝑦 ) ∈ { ∅ , 1o } ) )
92 84 91 mpbiri ( ∅ ∈ { ∅ , 1o } → 𝑀 ∈ Mgm )
93 3 92 ax-mp 𝑀 ∈ Mgm