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

Theorem dfmgc2 30800
Description: Alternate definition of the monotone Galois connection. (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 )
Assertion
Ref Expression
dfmgc2 (𝜑 → (𝐹𝐻𝐺 ↔ ((𝐹:𝐴𝐵𝐺:𝐵𝐴) ∧ ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))))))
Distinct variable groups:   𝑣,   𝑣,   𝑣,𝐴,𝑥,𝑦   𝑣,𝐵,𝑥,𝑦   𝑣,𝑉,𝑥,𝑦   𝑣,𝑊,𝑥,𝑦   𝑥,𝐹,𝑦   𝑥,𝐺,𝑦   𝑢, ,𝑣   𝑥, ,𝑦   𝑢,   𝑥, ,𝑦   𝑢,𝐵   𝑢,𝐹,𝑣   𝑢,𝐺,𝑣   𝑢,𝐻,𝑣   𝑥,𝐻,𝑦   𝜑,𝑢,𝑣   𝜑,𝑥,𝑦
Allowed substitution hints:   𝐴(𝑢)   𝑉(𝑢)   𝑊(𝑢)

Proof of Theorem dfmgc2
Dummy variables 𝑖 𝑗 𝑚 𝑛 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 mgcoval.1 . . . . 5 𝐴 = (Base‘𝑉)
2 mgcoval.2 . . . . 5 𝐵 = (Base‘𝑊)
3 mgcoval.3 . . . . 5 = (le‘𝑉)
4 mgcoval.4 . . . . 5 = (le‘𝑊)
5 mgcval.1 . . . . 5 𝐻 = (𝑉MGalConn𝑊)
6 mgcval.2 . . . . 5 (𝜑𝑉 ∈ Proset )
7 mgcval.3 . . . . 5 (𝜑𝑊 ∈ Proset )
81, 2, 3, 4, 5, 6, 7mgcval 30791 . . . 4 (𝜑 → (𝐹𝐻𝐺 ↔ ((𝐹:𝐴𝐵𝐺:𝐵𝐴) ∧ ∀𝑥𝐴𝑦𝐵 ((𝐹𝑥) 𝑦𝑥 (𝐺𝑦)))))
98simprbda 502 . . 3 ((𝜑𝐹𝐻𝐺) → (𝐹:𝐴𝐵𝐺:𝐵𝐴))
106ad4antr 731 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝑉 ∈ Proset )
117ad4antr 731 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝑊 ∈ Proset )
12 simp-4r 783 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝐹𝐻𝐺)
13 simpllr 775 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝑥𝐴)
14 simplr 768 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝑦𝐴)
15 simpr 488 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → 𝑥 𝑦)
161, 2, 3, 4, 5, 10, 11, 12, 13, 14, 15mgcmnt1 30796 . . . . . . . 8 (((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) ∧ 𝑥 𝑦) → (𝐹𝑥) (𝐹𝑦))
1716ex 416 . . . . . . 7 ((((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) ∧ 𝑦𝐴) → (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)))
1817anasss 470 . . . . . 6 (((𝜑𝐹𝐻𝐺) ∧ (𝑥𝐴𝑦𝐴)) → (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)))
1918ralrimivva 3120 . . . . 5 ((𝜑𝐹𝐻𝐺) → ∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)))
206ad4antr 731 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝑉 ∈ Proset )
217ad4antr 731 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝑊 ∈ Proset )
22 simp-4r 783 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝐹𝐻𝐺)
23 simpllr 775 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝑢𝐵)
24 simplr 768 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝑣𝐵)
25 simpr 488 . . . . . . . . 9 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → 𝑢 𝑣)
261, 2, 3, 4, 5, 20, 21, 22, 23, 24, 25mgcmnt2 30797 . . . . . . . 8 (((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) ∧ 𝑢 𝑣) → (𝐺𝑢) (𝐺𝑣))
2726ex 416 . . . . . . 7 ((((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) ∧ 𝑣𝐵) → (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))
2827anasss 470 . . . . . 6 (((𝜑𝐹𝐻𝐺) ∧ (𝑢𝐵𝑣𝐵)) → (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))
2928ralrimivva 3120 . . . . 5 ((𝜑𝐹𝐻𝐺) → ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))
3019, 29jca 515 . . . 4 ((𝜑𝐹𝐻𝐺) → (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))))
316ad2antrr 725 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) → 𝑉 ∈ Proset )
327ad2antrr 725 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) → 𝑊 ∈ Proset )
33 simplr 768 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) → 𝐹𝐻𝐺)
34 simpr 488 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) → 𝑢𝐵)
351, 2, 3, 4, 5, 31, 32, 33, 34mgccole2 30795 . . . . . 6 (((𝜑𝐹𝐻𝐺) ∧ 𝑢𝐵) → (𝐹‘(𝐺𝑢)) 𝑢)
3635ralrimiva 3113 . . . . 5 ((𝜑𝐹𝐻𝐺) → ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢)
376ad2antrr 725 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) → 𝑉 ∈ Proset )
387ad2antrr 725 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) → 𝑊 ∈ Proset )
39 simplr 768 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) → 𝐹𝐻𝐺)
40 simpr 488 . . . . . . 7 (((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) → 𝑥𝐴)
411, 2, 3, 4, 5, 37, 38, 39, 40mgccole1 30794 . . . . . 6 (((𝜑𝐹𝐻𝐺) ∧ 𝑥𝐴) → 𝑥 (𝐺‘(𝐹𝑥)))
4241ralrimiva 3113 . . . . 5 ((𝜑𝐹𝐻𝐺) → ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))
4336, 42jca 515 . . . 4 ((𝜑𝐹𝐻𝐺) → (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))))
4430, 43jca 515 . . 3 ((𝜑𝐹𝐻𝐺) → ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))))
459, 44jca 515 . 2 ((𝜑𝐹𝐻𝐺) → ((𝐹:𝐴𝐵𝐺:𝐵𝐴) ∧ ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))))))
466ad4antr 731 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → 𝑉 ∈ Proset )
477ad4antr 731 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → 𝑊 ∈ Proset )
48 simp-4r 783 . . . . . . 7 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → (𝐹:𝐴𝐵𝐺:𝐵𝐴))
4948simpld 498 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → 𝐹:𝐴𝐵)
5048simprd 499 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → 𝐺:𝐵𝐴)
51 simpllr 775 . . . . . . . 8 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))))
5251simpld 498 . . . . . . 7 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → ∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)))
53 breq1 5035 . . . . . . . . 9 (𝑥 = 𝑚 → (𝑥 𝑦𝑚 𝑦))
54 fveq2 6658 . . . . . . . . . 10 (𝑥 = 𝑚 → (𝐹𝑥) = (𝐹𝑚))
5554breq1d 5042 . . . . . . . . 9 (𝑥 = 𝑚 → ((𝐹𝑥) (𝐹𝑦) ↔ (𝐹𝑚) (𝐹𝑦)))
5653, 55imbi12d 348 . . . . . . . 8 (𝑥 = 𝑚 → ((𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ↔ (𝑚 𝑦 → (𝐹𝑚) (𝐹𝑦))))
57 breq2 5036 . . . . . . . . 9 (𝑦 = 𝑛 → (𝑚 𝑦𝑚 𝑛))
58 fveq2 6658 . . . . . . . . . 10 (𝑦 = 𝑛 → (𝐹𝑦) = (𝐹𝑛))
5958breq2d 5044 . . . . . . . . 9 (𝑦 = 𝑛 → ((𝐹𝑚) (𝐹𝑦) ↔ (𝐹𝑚) (𝐹𝑛)))
6057, 59imbi12d 348 . . . . . . . 8 (𝑦 = 𝑛 → ((𝑚 𝑦 → (𝐹𝑚) (𝐹𝑦)) ↔ (𝑚 𝑛 → (𝐹𝑚) (𝐹𝑛))))
6156, 60cbvral2vw 3373 . . . . . . 7 (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ↔ ∀𝑚𝐴𝑛𝐴 (𝑚 𝑛 → (𝐹𝑚) (𝐹𝑛)))
6252, 61sylib 221 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → ∀𝑚𝐴𝑛𝐴 (𝑚 𝑛 → (𝐹𝑚) (𝐹𝑛)))
6351simprd 499 . . . . . . 7 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))
64 breq1 5035 . . . . . . . . 9 (𝑢 = 𝑖 → (𝑢 𝑣𝑖 𝑣))
65 fveq2 6658 . . . . . . . . . 10 (𝑢 = 𝑖 → (𝐺𝑢) = (𝐺𝑖))
6665breq1d 5042 . . . . . . . . 9 (𝑢 = 𝑖 → ((𝐺𝑢) (𝐺𝑣) ↔ (𝐺𝑖) (𝐺𝑣)))
6764, 66imbi12d 348 . . . . . . . 8 (𝑢 = 𝑖 → ((𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)) ↔ (𝑖 𝑣 → (𝐺𝑖) (𝐺𝑣))))
68 breq2 5036 . . . . . . . . 9 (𝑣 = 𝑗 → (𝑖 𝑣𝑖 𝑗))
69 fveq2 6658 . . . . . . . . . 10 (𝑣 = 𝑗 → (𝐺𝑣) = (𝐺𝑗))
7069breq2d 5044 . . . . . . . . 9 (𝑣 = 𝑗 → ((𝐺𝑖) (𝐺𝑣) ↔ (𝐺𝑖) (𝐺𝑗)))
7168, 70imbi12d 348 . . . . . . . 8 (𝑣 = 𝑗 → ((𝑖 𝑣 → (𝐺𝑖) (𝐺𝑣)) ↔ (𝑖 𝑗 → (𝐺𝑖) (𝐺𝑗))))
7267, 71cbvral2vw 3373 . . . . . . 7 (∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)) ↔ ∀𝑖𝐵𝑗𝐵 (𝑖 𝑗 → (𝐺𝑖) (𝐺𝑗)))
7363, 72sylib 221 . . . . . 6 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → ∀𝑖𝐵𝑗𝐵 (𝑖 𝑗 → (𝐺𝑖) (𝐺𝑗)))
74 id 22 . . . . . . . 8 (𝑥 = 𝑚𝑥 = 𝑚)
75 2fveq3 6663 . . . . . . . 8 (𝑥 = 𝑚 → (𝐺‘(𝐹𝑥)) = (𝐺‘(𝐹𝑚)))
7674, 75breq12d 5045 . . . . . . 7 (𝑥 = 𝑚 → (𝑥 (𝐺‘(𝐹𝑥)) ↔ 𝑚 (𝐺‘(𝐹𝑚))))
77 simplr 768 . . . . . . 7 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑚𝐴) → ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))
78 simpr 488 . . . . . . 7 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑚𝐴) → 𝑚𝐴)
7976, 77, 78rspcdva 3543 . . . . . 6 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑚𝐴) → 𝑚 (𝐺‘(𝐹𝑚)))
80 2fveq3 6663 . . . . . . . 8 (𝑢 = 𝑖 → (𝐹‘(𝐺𝑢)) = (𝐹‘(𝐺𝑖)))
81 id 22 . . . . . . . 8 (𝑢 = 𝑖𝑢 = 𝑖)
8280, 81breq12d 5045 . . . . . . 7 (𝑢 = 𝑖 → ((𝐹‘(𝐺𝑢)) 𝑢 ↔ (𝐹‘(𝐺𝑖)) 𝑖))
83 simpllr 775 . . . . . . 7 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑖𝐵) → ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢)
84 simpr 488 . . . . . . 7 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑖𝐵) → 𝑖𝐵)
8582, 83, 84rspcdva 3543 . . . . . 6 ((((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) ∧ 𝑖𝐵) → (𝐹‘(𝐺𝑖)) 𝑖)
861, 2, 3, 4, 5, 46, 47, 49, 50, 62, 73, 79, 85dfmgc2lem 30799 . . . . 5 (((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ ∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢) ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))) → 𝐹𝐻𝐺)
8786anasss 470 . . . 4 ((((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ (∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣)))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))) → 𝐹𝐻𝐺)
8887anasss 470 . . 3 (((𝜑 ∧ (𝐹:𝐴𝐵𝐺:𝐵𝐴)) ∧ ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥))))) → 𝐹𝐻𝐺)
8988anasss 470 . 2 ((𝜑 ∧ ((𝐹:𝐴𝐵𝐺:𝐵𝐴) ∧ ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))))) → 𝐹𝐻𝐺)
9045, 89impbida 800 1 (𝜑 → (𝐹𝐻𝐺 ↔ ((𝐹:𝐴𝐵𝐺:𝐵𝐴) ∧ ((∀𝑥𝐴𝑦𝐴 (𝑥 𝑦 → (𝐹𝑥) (𝐹𝑦)) ∧ ∀𝑢𝐵𝑣𝐵 (𝑢 𝑣 → (𝐺𝑢) (𝐺𝑣))) ∧ (∀𝑢𝐵 (𝐹‘(𝐺𝑢)) 𝑢 ∧ ∀𝑥𝐴 𝑥 (𝐺‘(𝐹𝑥)))))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 209  wa 399   = wceq 1538  wcel 2111  wral 3070   class class class wbr 5032  wf 6331  cfv 6335  (class class class)co 7150  Basecbs 16541  lecple 16630   Proset cproset 17602  MGalConncmgc 30783
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2729  ax-sep 5169  ax-nul 5176  ax-pow 5234  ax-pr 5298  ax-un 7459
This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2557  df-eu 2588  df-clab 2736  df-cleq 2750  df-clel 2830  df-nfc 2901  df-ral 3075  df-rex 3076  df-rab 3079  df-v 3411  df-sbc 3697  df-csb 3806  df-dif 3861  df-un 3863  df-in 3865  df-ss 3875  df-nul 4226  df-if 4421  df-pw 4496  df-sn 4523  df-pr 4525  df-op 4529  df-uni 4799  df-br 5033  df-opab 5095  df-id 5430  df-xp 5530  df-rel 5531  df-cnv 5532  df-co 5533  df-dm 5534  df-rn 5535  df-iota 6294  df-fun 6337  df-fn 6338  df-f 6339  df-fv 6343  df-ov 7153  df-oprab 7154  df-mpo 7155  df-map 8418  df-proset 17604  df-mgc 30785
This theorem is referenced by:  mgcmnt1d  30801  mgcmnt2d  30802  mgcf1olem1  30805  mgcf1olem2  30806  mgcf1o  30807
  Copyright terms: Public domain W3C validator