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 33025
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 726 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑋 ∈ Proset )
3 mgcval.2 . . . . . . 7 (𝜑𝑉 ∈ Proset )
4 mgcmntco.4 . . . . . . 7 (𝜑𝐾 ∈ (𝑉Monot𝑋))
5 mgcoval.1 . . . . . . . 8 𝐴 = (Base‘𝑉)
6 mgcmntco.1 . . . . . . . 8 𝐶 = (Base‘𝑋)
75, 6mntf 33016 . . . . . . 7 ((𝑉 ∈ Proset ∧ 𝑋 ∈ Proset ∧ 𝐾 ∈ (𝑉Monot𝑋)) → 𝐾:𝐴𝐶)
83, 1, 4, 7syl3anc 1373 . . . . . 6 (𝜑𝐾:𝐴𝐶)
98ad2antrr 726 . . . . 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 33020 . . . . . . 7 (𝜑𝐺:𝐵𝐴)
1716adantr 480 . . . . . 6 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → 𝐺:𝐵𝐴)
1817ffvelcdmda 7027 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐺𝑦) ∈ 𝐴)
199, 18ffvelcdmd 7028 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) ∈ 𝐶)
20 mgcmntco.5 . . . . . . 7 (𝜑𝐿 ∈ (𝑊Monot𝑋))
2110, 6mntf 33016 . . . . . . 7 ((𝑊 ∈ Proset ∧ 𝑋 ∈ Proset ∧ 𝐿 ∈ (𝑊Monot𝑋)) → 𝐿:𝐵𝐶)
2214, 1, 20, 21syl3anc 1373 . . . . . 6 (𝜑𝐿:𝐵𝐶)
2322ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐿:𝐵𝐶)
245, 10, 11, 12, 13, 3, 14, 15mgcf1 33019 . . . . . . 7 (𝜑𝐹:𝐴𝐵)
2524ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐹:𝐴𝐵)
2625, 18ffvelcdmd 7028 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐹‘(𝐺𝑦)) ∈ 𝐵)
2723, 26ffvelcdmd 7028 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿‘(𝐹‘(𝐺𝑦))) ∈ 𝐶)
2822adantr 480 . . . . 5 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → 𝐿:𝐵𝐶)
2928ffvelcdmda 7027 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿𝑦) ∈ 𝐶)
3016ffvelcdmda 7027 . . . . . . 7 ((𝜑𝑦𝐵) → (𝐺𝑦) ∈ 𝐴)
31 fveq2 6832 . . . . . . . . 9 (𝑥 = (𝐺𝑦) → (𝐾𝑥) = (𝐾‘(𝐺𝑦)))
32 2fveq3 6837 . . . . . . . . 9 (𝑥 = (𝐺𝑦) → (𝐿‘(𝐹𝑥)) = (𝐿‘(𝐹‘(𝐺𝑦))))
3331, 32breq12d 5109 . . . . . . . 8 (𝑥 = (𝐺𝑦) → ((𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3433adantl 481 . . . . . . 7 (((𝜑𝑦𝐵) ∧ 𝑥 = (𝐺𝑦)) → ((𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3530, 34rspcdv 3566 . . . . . 6 ((𝜑𝑦𝐵) → (∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦)))))
3635imp 406 . . . . 5 (((𝜑𝑦𝐵) ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))))
3736an32s 652 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))))
38 mgcmntco.2 . . . . 5 < = (le‘𝑋)
3914ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑊 ∈ Proset )
4020ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐿 ∈ (𝑊Monot𝑋))
41 simpr 484 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑦𝐵)
423ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝑉 ∈ Proset )
4315ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → 𝐹𝐻𝐺)
445, 10, 11, 12, 13, 42, 39, 43, 41mgccole2 33022 . . . . 5 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐹‘(𝐺𝑦)) 𝑦)
4510, 6, 12, 38, 39, 2, 40, 26, 41, 44ismntd 33015 . . . 4 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐿‘(𝐹‘(𝐺𝑦))) < (𝐿𝑦))
466, 38prstr 18220 . . . 4 ((𝑋 ∈ Proset ∧ ((𝐾‘(𝐺𝑦)) ∈ 𝐶 ∧ (𝐿‘(𝐹‘(𝐺𝑦))) ∈ 𝐶 ∧ (𝐿𝑦) ∈ 𝐶) ∧ ((𝐾‘(𝐺𝑦)) < (𝐿‘(𝐹‘(𝐺𝑦))) ∧ (𝐿‘(𝐹‘(𝐺𝑦))) < (𝐿𝑦))) → (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
472, 19, 27, 29, 37, 45, 46syl132anc 1390 . . 3 (((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) ∧ 𝑦𝐵) → (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
4847ralrimiva 3126 . 2 ((𝜑 ∧ ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥))) → ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦))
491ad2antrr 726 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑋 ∈ Proset )
508ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐾:𝐴𝐶)
51 simpr 484 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑥𝐴)
5250, 51ffvelcdmd 7028 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) ∈ 𝐶)
5316ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐺:𝐵𝐴)
5424adantr 480 . . . . . . 7 ((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → 𝐹:𝐴𝐵)
5554ffvelcdmda 7027 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐹𝑥) ∈ 𝐵)
5653, 55ffvelcdmd 7028 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐺‘(𝐹𝑥)) ∈ 𝐴)
5750, 56ffvelcdmd 7028 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾‘(𝐺‘(𝐹𝑥))) ∈ 𝐶)
5822ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐿:𝐵𝐶)
5958, 55ffvelcdmd 7028 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐿‘(𝐹𝑥)) ∈ 𝐶)
603ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑉 ∈ Proset )
614ad2antrr 726 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐾 ∈ (𝑉Monot𝑋))
6214ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑊 ∈ Proset )
6315ad2antrr 726 . . . . . 6 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝐹𝐻𝐺)
645, 10, 11, 12, 13, 60, 62, 63, 51mgccole1 33021 . . . . 5 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → 𝑥 (𝐺‘(𝐹𝑥)))
655, 6, 11, 38, 60, 49, 61, 51, 56, 64ismntd 33015 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) < (𝐾‘(𝐺‘(𝐹𝑥))))
6624ffvelcdmda 7027 . . . . . . 7 ((𝜑𝑥𝐴) → (𝐹𝑥) ∈ 𝐵)
67 2fveq3 6837 . . . . . . . . 9 (𝑦 = (𝐹𝑥) → (𝐾‘(𝐺𝑦)) = (𝐾‘(𝐺‘(𝐹𝑥))))
68 fveq2 6832 . . . . . . . . 9 (𝑦 = (𝐹𝑥) → (𝐿𝑦) = (𝐿‘(𝐹𝑥)))
6967, 68breq12d 5109 . . . . . . . 8 (𝑦 = (𝐹𝑥) → ((𝐾‘(𝐺𝑦)) < (𝐿𝑦) ↔ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7069adantl 481 . . . . . . 7 (((𝜑𝑥𝐴) ∧ 𝑦 = (𝐹𝑥)) → ((𝐾‘(𝐺𝑦)) < (𝐿𝑦) ↔ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7166, 70rspcdv 3566 . . . . . 6 ((𝜑𝑥𝐴) → (∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥))))
7271imp 406 . . . . 5 (((𝜑𝑥𝐴) ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))
7372an32s 652 . . . 4 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))
746, 38prstr 18220 . . . 4 ((𝑋 ∈ Proset ∧ ((𝐾𝑥) ∈ 𝐶 ∧ (𝐾‘(𝐺‘(𝐹𝑥))) ∈ 𝐶 ∧ (𝐿‘(𝐹𝑥)) ∈ 𝐶) ∧ ((𝐾𝑥) < (𝐾‘(𝐺‘(𝐹𝑥))) ∧ (𝐾‘(𝐺‘(𝐹𝑥))) < (𝐿‘(𝐹𝑥)))) → (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7549, 52, 57, 59, 65, 73, 74syl132anc 1390 . . 3 (((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) ∧ 𝑥𝐴) → (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7675ralrimiva 3126 . 2 ((𝜑 ∧ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)) → ∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)))
7748, 76impbida 800 1 (𝜑 → (∀𝑥𝐴 (𝐾𝑥) < (𝐿‘(𝐹𝑥)) ↔ ∀𝑦𝐵 (𝐾‘(𝐺𝑦)) < (𝐿𝑦)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1541  wcel 2113  wral 3049   class class class wbr 5096  wf 6486  cfv 6490  (class class class)co 7356  Basecbs 17134  lecple 17182   Proset cproset 18213  Monotcmnt 33009  MGalConncmgc 33010
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2706  ax-sep 5239  ax-nul 5249  ax-pow 5308  ax-pr 5375  ax-un 7678
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2567  df-clab 2713  df-cleq 2726  df-clel 2809  df-nfc 2883  df-ne 2931  df-ral 3050  df-rex 3059  df-rab 3398  df-v 3440  df-sbc 3739  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-nul 4284  df-if 4478  df-pw 4554  df-sn 4579  df-pr 4581  df-op 4585  df-uni 4862  df-br 5097  df-opab 5159  df-id 5517  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-fv 6498  df-ov 7359  df-oprab 7360  df-mpo 7361  df-map 8763  df-proset 18215  df-mnt 33011  df-mgc 33012
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator