Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  isomnd Structured version   Visualization version   GIF version

Theorem isomnd 33078
Description: A (left) ordered monoid is a monoid with a total ordering compatible with its operation. (Contributed by Thierry Arnoux, 30-Jan-2018.)
Hypotheses
Ref Expression
isomnd.0 𝐵 = (Base‘𝑀)
isomnd.1 + = (+g𝑀)
isomnd.2 = (le‘𝑀)
Assertion
Ref Expression
isomnd (𝑀 ∈ oMnd ↔ (𝑀 ∈ Mnd ∧ 𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))))
Distinct variable groups:   𝑎,𝑏,𝑐,𝐵   𝑀,𝑎,𝑏,𝑐
Allowed substitution hints:   + (𝑎,𝑏,𝑐)   (𝑎,𝑏,𝑐)

Proof of Theorem isomnd
Dummy variables 𝑙 𝑚 𝑝 𝑣 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fvexd 6921 . . . . 5 (𝑚 = 𝑀 → (Base‘𝑚) ∈ V)
2 simpr 484 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → 𝑣 = (Base‘𝑚))
3 fveq2 6906 . . . . . . . . . . . 12 (𝑚 = 𝑀 → (Base‘𝑚) = (Base‘𝑀))
43adantr 480 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → (Base‘𝑚) = (Base‘𝑀))
52, 4eqtrd 2777 . . . . . . . . . 10 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → 𝑣 = (Base‘𝑀))
6 isomnd.0 . . . . . . . . . 10 𝐵 = (Base‘𝑀)
75, 6eqtr4di 2795 . . . . . . . . 9 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → 𝑣 = 𝐵)
8 raleq 3323 . . . . . . . . . . 11 (𝑣 = 𝐵 → (∀𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))))
98raleqbi1dv 3338 . . . . . . . . . 10 (𝑣 = 𝐵 → (∀𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))))
109raleqbi1dv 3338 . . . . . . . . 9 (𝑣 = 𝐵 → (∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))))
117, 10syl 17 . . . . . . . 8 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → (∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))))
1211anbi2d 630 . . . . . . 7 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → ((𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ (𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)))))
1312sbcbidv 3845 . . . . . 6 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → ([(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ [(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)))))
1413sbcbidv 3845 . . . . 5 ((𝑚 = 𝑀𝑣 = (Base‘𝑚)) → ([(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ [(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)))))
151, 14sbcied 3832 . . . 4 (𝑚 = 𝑀 → ([(Base‘𝑚) / 𝑣][(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ [(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)))))
16 fvexd 6921 . . . . 5 (𝑚 = 𝑀 → (+g𝑚) ∈ V)
17 simpr 484 . . . . . . . . . . . . . 14 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → 𝑝 = (+g𝑚))
18 fveq2 6906 . . . . . . . . . . . . . . 15 (𝑚 = 𝑀 → (+g𝑚) = (+g𝑀))
1918adantr 480 . . . . . . . . . . . . . 14 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → (+g𝑚) = (+g𝑀))
2017, 19eqtrd 2777 . . . . . . . . . . . . 13 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → 𝑝 = (+g𝑀))
21 isomnd.1 . . . . . . . . . . . . 13 + = (+g𝑀)
2220, 21eqtr4di 2795 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → 𝑝 = + )
2322oveqd 7448 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → (𝑎𝑝𝑐) = (𝑎 + 𝑐))
2422oveqd 7448 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → (𝑏𝑝𝑐) = (𝑏 + 𝑐))
2523, 24breq12d 5156 . . . . . . . . . 10 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → ((𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐) ↔ (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)))
2625imbi2d 340 . . . . . . . . 9 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → ((𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))))
2726ralbidv 3178 . . . . . . . 8 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → (∀𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))))
28272ralbidv 3221 . . . . . . 7 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)) ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))))
2928anbi2d 630 . . . . . 6 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → ((𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ (𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)))))
3029sbcbidv 3845 . . . . 5 ((𝑚 = 𝑀𝑝 = (+g𝑚)) → ([(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ [(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)))))
3116, 30sbcied 3832 . . . 4 (𝑚 = 𝑀 → ([(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ [(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)))))
32 fvexd 6921 . . . . . 6 (𝑚 = 𝑀 → (le‘𝑚) ∈ V)
33 simpr 484 . . . . . . . . . . . . 13 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → 𝑙 = (le‘𝑚))
34 simpl 482 . . . . . . . . . . . . . 14 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → 𝑚 = 𝑀)
3534fveq2d 6910 . . . . . . . . . . . . 13 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → (le‘𝑚) = (le‘𝑀))
3633, 35eqtrd 2777 . . . . . . . . . . . 12 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → 𝑙 = (le‘𝑀))
37 isomnd.2 . . . . . . . . . . . 12 = (le‘𝑀)
3836, 37eqtr4di 2795 . . . . . . . . . . 11 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → 𝑙 = )
3938breqd 5154 . . . . . . . . . 10 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → (𝑎𝑙𝑏𝑎 𝑏))
4038breqd 5154 . . . . . . . . . 10 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → ((𝑎 + 𝑐)𝑙(𝑏 + 𝑐) ↔ (𝑎 + 𝑐) (𝑏 + 𝑐)))
4139, 40imbi12d 344 . . . . . . . . 9 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → ((𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)) ↔ (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))))
4241ralbidv 3178 . . . . . . . 8 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → (∀𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)) ↔ ∀𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))))
43422ralbidv 3221 . . . . . . 7 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → (∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐)) ↔ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))))
4443anbi2d 630 . . . . . 6 ((𝑚 = 𝑀𝑙 = (le‘𝑚)) → ((𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))) ↔ (𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
4532, 44sbcied 3832 . . . . 5 (𝑚 = 𝑀 → ([(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))) ↔ (𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
46 eleq1 2829 . . . . . 6 (𝑚 = 𝑀 → (𝑚 ∈ Toset ↔ 𝑀 ∈ Toset))
4746anbi1d 631 . . . . 5 (𝑚 = 𝑀 → ((𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))) ↔ (𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
4845, 47bitrd 279 . . . 4 (𝑚 = 𝑀 → ([(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎𝑙𝑏 → (𝑎 + 𝑐)𝑙(𝑏 + 𝑐))) ↔ (𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
4915, 31, 483bitrd 305 . . 3 (𝑚 = 𝑀 → ([(Base‘𝑚) / 𝑣][(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐))) ↔ (𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
50 df-omnd 33076 . . 3 oMnd = {𝑚 ∈ Mnd ∣ [(Base‘𝑚) / 𝑣][(+g𝑚) / 𝑝][(le‘𝑚) / 𝑙](𝑚 ∈ Toset ∧ ∀𝑎𝑣𝑏𝑣𝑐𝑣 (𝑎𝑙𝑏 → (𝑎𝑝𝑐)𝑙(𝑏𝑝𝑐)))}
5149, 50elrab2 3695 . 2 (𝑀 ∈ oMnd ↔ (𝑀 ∈ Mnd ∧ (𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
52 3anass 1095 . 2 ((𝑀 ∈ Mnd ∧ 𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))) ↔ (𝑀 ∈ Mnd ∧ (𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐)))))
5351, 52bitr4i 278 1 (𝑀 ∈ oMnd ↔ (𝑀 ∈ Mnd ∧ 𝑀 ∈ Toset ∧ ∀𝑎𝐵𝑏𝐵𝑐𝐵 (𝑎 𝑏 → (𝑎 + 𝑐) (𝑏 + 𝑐))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395  w3a 1087   = wceq 1540  wcel 2108  wral 3061  Vcvv 3480  [wsbc 3788   class class class wbr 5143  cfv 6561  (class class class)co 7431  Basecbs 17247  +gcplusg 17297  lecple 17304  Tosetctos 18461  Mndcmnd 18747  oMndcomnd 33074
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-ext 2708  ax-nul 5306
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1543  df-fal 1553  df-ex 1780  df-sb 2065  df-clab 2715  df-cleq 2729  df-clel 2816  df-ne 2941  df-ral 3062  df-rex 3071  df-rab 3437  df-v 3482  df-sbc 3789  df-dif 3954  df-un 3956  df-ss 3968  df-nul 4334  df-if 4526  df-sn 4627  df-pr 4629  df-op 4633  df-uni 4908  df-br 5144  df-iota 6514  df-fv 6569  df-ov 7434  df-omnd 33076
This theorem is referenced by:  omndmnd  33081  omndtos  33082  omndadd  33083  submomnd  33087  xrge0omnd  33088  reofld  33372
  Copyright terms: Public domain W3C validator