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

Theorem mgcmntco 33255
Description: A Galois connection like statement, for two functions with same range. (Contributed by Thierry Arnoux, 26-Apr-2024.)
Hypotheses
Ref Expression
mgcoval.1 𝐴 = (Base‘𝑉)
mgcoval.2 𝐵 = (Base‘𝑊)
mgcoval.3 = (le‘𝑉)
mgcoval.4 = (le‘𝑊)
mgcval.1 𝐻 = (𝑉MGalConn𝑊)
mgcval.2 (𝜑𝑉 ∈ Proset )
mgcval.3 (𝜑𝑊 ∈ Proset )
mgccole.1 (𝜑𝐹𝐻𝐺)
mgcmntco.1 𝐶 = (Base‘𝑋)
mgcmntco.2 < = (le‘𝑋)
mgcmntco.3 (𝜑𝑋 ∈ Proset )
mgcmntco.4 (𝜑𝐾 ∈ (𝑉Monot𝑋))
mgcmntco.5 (𝜑𝐿 ∈ (𝑊Monot𝑋))
Assertion
Ref Expression
mgcmntco (𝜑 → (∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝑥,𝑉,𝑦   𝑥,𝑊,𝑦   𝑥,𝑋,𝑦   𝑥,𝐹,𝑦   𝑥,𝐺,𝑦   𝑥, < ,𝑦   𝑥,𝐾,𝑦   𝑥,𝐿,𝑦   𝜑,𝑥,𝑦
Allowed substitution hints:   𝐶(𝑥,𝑦)   𝐻(𝑥,𝑦)   (𝑥,𝑦)   (𝑥,𝑦)

Proof of Theorem mgcmntco
StepHypRef Expression
1 mgcmntco.3 . . . . 5 (𝜑𝑋 ∈ Proset )
21ad2antrr 738 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑋 ∈ Proset )
3 mgcval.2 . . . . . . 7 (𝜑𝑉 ∈ Proset )
4 mgcmntco.4 . . . . . . 7 (𝜑𝐾 ∈ (𝑉Monot𝑋))
5 mgcoval.1 . . . . . . . 8 𝐴 = (Base‘𝑉)
6 mgcmntco.1 . . . . . . . 8 𝐶 = (Base‘𝑋)
75, 6mntf 33246 . . . . . . 7 ((𝑉 ∈ Proset ∧ 𝑋 ∈ Proset ∧ 𝐾 ∈ (𝑉Monot𝑋)) → 𝐾:𝐴𝐶)
83, 1, 4, 7syl3anc 1396 . . . . . 6 (𝜑𝐾:𝐴𝐶)
98ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐾:𝐴𝐶)
10 mgcoval.2 . . . . . . . 8 𝐵 = (Base‘𝑊)
11 mgcoval.3 . . . . . . . 8 = (le‘𝑉)
12 mgcoval.4 . . . . . . . 8 = (le‘𝑊)
13 mgcval.1 . . . . . . . 8 𝐻 = (𝑉MGalConn𝑊)
14 mgcval.3 . . . . . . . 8 (𝜑𝑊 ∈ Proset )
15 mgccole.1 . . . . . . . 8 (𝜑𝐹𝐻𝐺)
165, 10, 11, 12, 13, 3, 14, 15mgcf2 33250 . . . . . . 7 (𝜑𝐺:𝐵𝐴)
1716adantr 485 . . . . . 6 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → 𝐺:𝐵𝐴)
1817ffvelcdmda 7080 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐺𝑦) ∈ 𝐴)
199, 18ffvelcdmd 7081 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) ∈ 𝐶)
20 mgcmntco.5 . . . . . . 7 (𝜑𝐿 ∈ (𝑊Monot𝑋))
2110, 6mntf 33246 . . . . . . 7 ((𝑊 ∈ Proset ∧ 𝑋 ∈ Proset ∧ 𝐿 ∈ (𝑊Monot𝑋)) → 𝐿:𝐵𝐶)
2214, 1, 20, 21syl3anc 1396 . . . . . 6 (𝜑𝐿:𝐵𝐶)
2322ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐿:𝐵𝐶)
245, 10, 11, 12, 13, 3, 14, 15mgcf1 33249 . . . . . . 7 (𝜑𝐹:𝐴𝐵)
2524ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐹:𝐴𝐵)
2625, 18ffvelcdmd 7081 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐹‘(𝐺𝑦)) ∈ 𝐵)
2723, 26ffvelcdmd 7081 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿‘(𝐹‘(𝐺𝑦))) ∈ 𝐶)
2822adantr 485 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → 𝐿:𝐵𝐶)
2928ffvelcdmda 7080 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿𝑦) ∈ 𝐶)
3016ffvelcdmda 7080 . . . . . . 7 ((𝜑𝑦𝐵) → (𝐺𝑦) ∈ 𝐴)
31 fveq2 6882 . . . . . . . . 9 (𝑥 = (𝐺𝑦) → (𝐾𝑥) = (𝐾‘(𝐺𝑦)))
32 2fveq3 6887 . . . . . . . . 9 (𝑥 = (𝐺𝑦) → (𝐿‘(𝐹𝑥)) = (𝐿‘(𝐹‘(𝐺𝑦))))
3331, 32breq12d 5126 . . . . . . . 8 (𝑥 = (𝐺𝑦) → ((𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3433adantl 486 . . . . . . 7 (((𝜑𝑦𝐵) ∧ 𝑥 = (𝐺𝑦)) → ((𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3530, 34rspcdv 3582 . . . . . 6 ((𝜑𝑦𝐵) → (∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3635imp 411 . . . . 5 (((𝜑𝑦𝐵) ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))))
3736an32s 664 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))))
38 mgcmntco.2 . . . . 5 < = (le‘𝑋)
3914ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑊 ∈ Proset )
4020ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐿 ∈ (𝑊Monot𝑋))
41 simpr 489 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑦𝐵)
423ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑉 ∈ Proset )
4315ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐹𝐻𝐺)
445, 10, 11, 12, 13, 42, 39, 43, 41mgccole2 33252 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐹‘(𝐺𝑦)) 𝑦)
4510, 6, 12, 38, 39, 2, 40, 26, 41, 44ismntd 33245 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿‘(𝐹‘(𝐺𝑦))) < (𝐿𝑦))
466, 38prstr 18355 . . . 4 ((𝑋 ∈ Proset ∧ ((𝐾‘(𝐺𝑦)) ∈ 𝐶 ∧ (𝐿‘(𝐹‘(𝐺𝑦))) ∈ 𝐶 ∧ (𝐿𝑦) ∈ 𝐶) ∧ ((𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))) ∧ (𝐿‘(𝐹‘(𝐺𝑦))) < (𝐿𝑦))) → (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
472, 19, 27, 29, 37, 45, 46syl132anc 1413 . . 3 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
4847ralrimiva 3163 . 2 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
491ad2antrr 738 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑋 ∈ Proset )
508ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐾:𝐴𝐶)
51 simpr 489 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑥𝐴)
5250, 51ffvelcdmd 7081 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) ∈ 𝐶)
5316ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐺:𝐵𝐴)
5424adantr 485 . . . . . . 7 ((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → 𝐹:𝐴𝐵)
5554ffvelcdmda 7080 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐹𝑥) ∈ 𝐵)
5653, 55ffvelcdmd 7081 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐺‘(𝐹𝑥)) ∈ 𝐴)
5750, 56ffvelcdmd 7081 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾‘(𝐺‘(𝐹𝑥))) ∈ 𝐶)
5822ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐿:𝐵𝐶)
5958, 55ffvelcdmd 7081 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐿‘(𝐹𝑥)) ∈ 𝐶)
603ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑉 ∈ Proset )
614ad2antrr 738 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐾 ∈ (𝑉Monot𝑋))
6214ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑊 ∈ Proset )
6315ad2antrr 738 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐹𝐻𝐺)
645, 10, 11, 12, 13, 60, 62, 63, 51mgccole1 33251 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑥 (𝐺‘(𝐹𝑥)))
655, 6, 11, 38, 60, 49, 61, 51, 56, 64ismntd 33245 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) < (𝐾‘(𝐺‘(𝐹𝑥))))
6624ffvelcdmda 7080 . . . . . . 7 ((𝜑𝑥𝐴) → (𝐹𝑥) ∈ 𝐵)
67 2fveq3 6887 . . . . . . . . 9 (𝑦 = (𝐹𝑥) → (𝐾‘(𝐺𝑦)) = (𝐾‘(𝐺‘(𝐹𝑥))))
68 fveq2 6882 . . . . . . . . 9 (𝑦 = (𝐹𝑥) → (𝐿𝑦) = (𝐿‘(𝐹𝑥)))
6967, 68breq12d 5126 . . . . . . . 8 (𝑦 = (𝐹𝑥) → ((𝐾‘(𝐺𝑦)) < (𝐿𝑦) ↔ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7069adantl 486 . . . . . . 7 (((𝜑𝑥𝐴) ∧ 𝑦 = (𝐹𝑥)) → ((𝐾‘(𝐺𝑦)) < (𝐿𝑦) ↔ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7166, 70rspcdv 3582 . . . . . 6 ((𝜑𝑥𝐴) → (∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7271imp 411 . . . . 5 (((𝜑𝑥𝐴) ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))
7372an32s 664 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))
746, 38prstr 18355 . . . 4 ((𝑋 ∈ Proset ∧ ((𝐾𝑥) ∈ 𝐶 ∧ (𝐾‘(𝐺‘(𝐹𝑥))) ∈ 𝐶 ∧ (𝐿‘(𝐹𝑥)) ∈ 𝐶) ∧ ((𝐾𝑥) < (𝐾‘(𝐺‘(𝐹𝑥))) ∧ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))) → (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7549, 52, 57, 59, 65, 73, 74syl132anc 1413 . . 3 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7675ralrimiva 3163 . 2 ((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7748, 76impbida 812 1 (𝜑 → (∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 400   = wceq 1567  wcel 2149  wral 3085   class class class wbr 5113  wf 6533  cfv 6537  (class class class)co 7411  Basecbs 17269  lecple 17317   Proset cproset 18348  Monotcmnt 33239  MGalConncmgc 33240
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1822  ax-4 1836  ax-5 1937  ax-6 1994  ax-7 2035  ax-8 2151  ax-9 2159  ax-10 2182  ax-11 2198  ax-12 2219  ax-ext 2741  ax-sep 5261  ax-nul 5271  ax-pow 5337  ax-pr 5405  ax-un 7733
This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1103  df-tru 1570  df-fal 1580  df-ex 1807  df-nf 1811  df-sb 2098  df-mo 2573  df-eu 2603  df-clab 2748  df-cleq 2761  df-clel 2844  df-nfc 2918  df-ne 2965  df-ral 3086  df-rex 3096  df-rab 3424  df-v 3465  df-sbc 3754  df-csb 3862  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-nul 4295  df-if 4493  df-pw 4569  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4877  df-br 5114  df-opab 5178  df-id 5557  df-xp 5668  df-rel 5669  df-cnv 5670  df-co 5671  df-dm 5672  df-rn 5673  df-iota 6493  df-fun 6539  df-fn 6540  df-f 6541  df-fv 6545  df-ov 7414  df-oprab 7415  df-mpo 7416  df-map 8826  df-proset 18350  df-mnt 33241  df-mgc 33242
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator