Theorem dfmgc2 30785

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.

Step	Hyp	Ref	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 )
8	1, 2, 3, 4, 5, 6, 7	mgcval 30776	. . . 4 ⊢ (𝜑 → (𝐹𝐻𝐺 ↔ ((𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴) ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐵 ((𝐹‘𝑥) ≲ 𝑦 ↔ 𝑥 ≤ (𝐺‘𝑦)))))
9	8	simprbda 503	. . 3 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴))
10	6	ad4antr 732	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝑉 ∈ Proset )
11	7	ad4antr 732	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝑊 ∈ Proset )
12		simp-4r 784	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝐹𝐻𝐺)
13		simpllr 776	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝑥 ∈ 𝐴)
14		simplr 769	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝑦 ∈ 𝐴)
15		simpr 489	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → 𝑥 ≤ 𝑦)
16	1, 2, 3, 4, 5, 10, 11, 12, 13, 14, 15	mgcmnt1 30781	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) ∧ 𝑥 ≤ 𝑦) → (𝐹‘𝑥) ≲ (𝐹‘𝑦))
17	16	ex 417	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) ∧ 𝑦 ∈ 𝐴) → (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)))
18	17	anasss 471	. . . . . 6 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)))
19	18	ralrimivva 3118	. . . . 5 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)))
20	6	ad4antr 732	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝑉 ∈ Proset )
21	7	ad4antr 732	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝑊 ∈ Proset )
22		simp-4r 784	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝐹𝐻𝐺)
23		simpllr 776	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝑢 ∈ 𝐵)
24		simplr 769	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝑣 ∈ 𝐵)
25		simpr 489	. . . . . . . . 9 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → 𝑢 ≲ 𝑣)
26	1, 2, 3, 4, 5, 20, 21, 22, 23, 24, 25	mgcmnt2 30782	. . . . . . . 8 ⊢ (((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) ∧ 𝑢 ≲ 𝑣) → (𝐺‘𝑢) ≤ (𝐺‘𝑣))
27	26	ex 417	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) ∧ 𝑣 ∈ 𝐵) → (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))
28	27	anasss 471	. . . . . 6 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ (𝑢 ∈ 𝐵 ∧ 𝑣 ∈ 𝐵)) → (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))
29	28	ralrimivva 3118	. . . . 5 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))
30	19, 29	jca 516	. . . 4 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))))
31	6	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) → 𝑉 ∈ Proset )
32	7	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) → 𝑊 ∈ Proset )
33		simplr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) → 𝐹𝐻𝐺)
34		simpr 489	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) → 𝑢 ∈ 𝐵)
35	1, 2, 3, 4, 5, 31, 32, 33, 34	mgccole2 30780	. . . . . 6 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑢 ∈ 𝐵) → (𝐹‘(𝐺‘𝑢)) ≲ 𝑢)
36	35	ralrimiva 3111	. . . . 5 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢)
37	6	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) → 𝑉 ∈ Proset )
38	7	ad2antrr 726	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) → 𝑊 ∈ Proset )
39		simplr 769	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) → 𝐹𝐻𝐺)
40		simpr 489	. . . . . . 7 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) → 𝑥 ∈ 𝐴)
41	1, 2, 3, 4, 5, 37, 38, 39, 40	mgccole1 30779	. . . . . 6 ⊢ (((𝜑 ∧ 𝐹𝐻𝐺) ∧ 𝑥 ∈ 𝐴) → 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))
42	41	ralrimiva 3111	. . . . 5 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))
43	36, 42	jca 516	. . . 4 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))))
44	30, 43	jca 516	. . 3 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ((∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))))
45	9, 44	jca 516	. 2 ⊢ ((𝜑 ∧ 𝐹𝐻𝐺) → ((𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴) ∧ ((∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))))))
46	6	ad4antr 732	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → 𝑉 ∈ Proset )
47	7	ad4antr 732	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → 𝑊 ∈ Proset )
48		simp-4r 784	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴))
49	48	simpld 499	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → 𝐹:𝐴⟶𝐵)
50	48	simprd 500	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → 𝐺:𝐵⟶𝐴)
51		simpllr 776	. . . . . . . 8 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))))
52	51	simpld 499	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)))
53		breq1 5028	. . . . . . . . 9 ⊢ (𝑥 = 𝑚 → (𝑥 ≤ 𝑦 ↔ 𝑚 ≤ 𝑦))
54		fveq2 6651	. . . . . . . . . 10 ⊢ (𝑥 = 𝑚 → (𝐹‘𝑥) = (𝐹‘𝑚))
55	54	breq1d 5035	. . . . . . . . 9 ⊢ (𝑥 = 𝑚 → ((𝐹‘𝑥) ≲ (𝐹‘𝑦) ↔ (𝐹‘𝑚) ≲ (𝐹‘𝑦)))
56	53, 55	imbi12d 349	. . . . . . . 8 ⊢ (𝑥 = 𝑚 → ((𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ↔ (𝑚 ≤ 𝑦 → (𝐹‘𝑚) ≲ (𝐹‘𝑦))))
57		breq2 5029	. . . . . . . . 9 ⊢ (𝑦 = 𝑛 → (𝑚 ≤ 𝑦 ↔ 𝑚 ≤ 𝑛))
58		fveq2 6651	. . . . . . . . . 10 ⊢ (𝑦 = 𝑛 → (𝐹‘𝑦) = (𝐹‘𝑛))
59	58	breq2d 5037	. . . . . . . . 9 ⊢ (𝑦 = 𝑛 → ((𝐹‘𝑚) ≲ (𝐹‘𝑦) ↔ (𝐹‘𝑚) ≲ (𝐹‘𝑛)))
60	57, 59	imbi12d 349	. . . . . . . 8 ⊢ (𝑦 = 𝑛 → ((𝑚 ≤ 𝑦 → (𝐹‘𝑚) ≲ (𝐹‘𝑦)) ↔ (𝑚 ≤ 𝑛 → (𝐹‘𝑚) ≲ (𝐹‘𝑛))))
61	56, 60	cbvral2vw 3371	. . . . . . 7 ⊢ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ↔ ∀𝑚 ∈ 𝐴 ∀𝑛 ∈ 𝐴 (𝑚 ≤ 𝑛 → (𝐹‘𝑚) ≲ (𝐹‘𝑛)))
62	52, 61	sylib 221	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → ∀𝑚 ∈ 𝐴 ∀𝑛 ∈ 𝐴 (𝑚 ≤ 𝑛 → (𝐹‘𝑚) ≲ (𝐹‘𝑛)))
63	51	simprd 500	. . . . . . 7 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))
64		breq1 5028	. . . . . . . . 9 ⊢ (𝑢 = 𝑖 → (𝑢 ≲ 𝑣 ↔ 𝑖 ≲ 𝑣))
65		fveq2 6651	. . . . . . . . . 10 ⊢ (𝑢 = 𝑖 → (𝐺‘𝑢) = (𝐺‘𝑖))
66	65	breq1d 5035	. . . . . . . . 9 ⊢ (𝑢 = 𝑖 → ((𝐺‘𝑢) ≤ (𝐺‘𝑣) ↔ (𝐺‘𝑖) ≤ (𝐺‘𝑣)))
67	64, 66	imbi12d 349	. . . . . . . 8 ⊢ (𝑢 = 𝑖 → ((𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)) ↔ (𝑖 ≲ 𝑣 → (𝐺‘𝑖) ≤ (𝐺‘𝑣))))
68		breq2 5029	. . . . . . . . 9 ⊢ (𝑣 = 𝑗 → (𝑖 ≲ 𝑣 ↔ 𝑖 ≲ 𝑗))
69		fveq2 6651	. . . . . . . . . 10 ⊢ (𝑣 = 𝑗 → (𝐺‘𝑣) = (𝐺‘𝑗))
70	69	breq2d 5037	. . . . . . . . 9 ⊢ (𝑣 = 𝑗 → ((𝐺‘𝑖) ≤ (𝐺‘𝑣) ↔ (𝐺‘𝑖) ≤ (𝐺‘𝑗)))
71	68, 70	imbi12d 349	. . . . . . . 8 ⊢ (𝑣 = 𝑗 → ((𝑖 ≲ 𝑣 → (𝐺‘𝑖) ≤ (𝐺‘𝑣)) ↔ (𝑖 ≲ 𝑗 → (𝐺‘𝑖) ≤ (𝐺‘𝑗))))
72	67, 71	cbvral2vw 3371	. . . . . . 7 ⊢ (∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)) ↔ ∀𝑖 ∈ 𝐵 ∀𝑗 ∈ 𝐵 (𝑖 ≲ 𝑗 → (𝐺‘𝑖) ≤ (𝐺‘𝑗)))
73	63, 72	sylib 221	. . . . . 6 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → ∀𝑖 ∈ 𝐵 ∀𝑗 ∈ 𝐵 (𝑖 ≲ 𝑗 → (𝐺‘𝑖) ≤ (𝐺‘𝑗)))
74		id 22	. . . . . . . 8 ⊢ (𝑥 = 𝑚 → 𝑥 = 𝑚)
75		2fveq3 6656	. . . . . . . 8 ⊢ (𝑥 = 𝑚 → (𝐺‘(𝐹‘𝑥)) = (𝐺‘(𝐹‘𝑚)))
76	74, 75	breq12d 5038	. . . . . . 7 ⊢ (𝑥 = 𝑚 → (𝑥 ≤ (𝐺‘(𝐹‘𝑥)) ↔ 𝑚 ≤ (𝐺‘(𝐹‘𝑚))))
77		simplr 769	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑚 ∈ 𝐴) → ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))
78		simpr 489	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑚 ∈ 𝐴) → 𝑚 ∈ 𝐴)
79	76, 77, 78	rspcdva 3541	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑚 ∈ 𝐴) → 𝑚 ≤ (𝐺‘(𝐹‘𝑚)))
80		2fveq3 6656	. . . . . . . 8 ⊢ (𝑢 = 𝑖 → (𝐹‘(𝐺‘𝑢)) = (𝐹‘(𝐺‘𝑖)))
81		id 22	. . . . . . . 8 ⊢ (𝑢 = 𝑖 → 𝑢 = 𝑖)
82	80, 81	breq12d 5038	. . . . . . 7 ⊢ (𝑢 = 𝑖 → ((𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ↔ (𝐹‘(𝐺‘𝑖)) ≲ 𝑖))
83		simpllr 776	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑖 ∈ 𝐵) → ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢)
84		simpr 489	. . . . . . 7 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑖 ∈ 𝐵) → 𝑖 ∈ 𝐵)
85	82, 83, 84	rspcdva 3541	. . . . . 6 ⊢ ((((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) ∧ 𝑖 ∈ 𝐵) → (𝐹‘(𝐺‘𝑖)) ≲ 𝑖)
86	1, 2, 3, 4, 5, 46, 47, 49, 50, 62, 73, 79, 85	dfmgc2lem 30784	. . . . 5 ⊢ (((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ ∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢) ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))) → 𝐹𝐻𝐺)
87	86	anasss 471	. . . 4 ⊢ ((((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ (∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣)))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))) → 𝐹𝐻𝐺)
88	87	anasss 471	. . 3 ⊢ (((𝜑 ∧ (𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴)) ∧ ((∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥))))) → 𝐹𝐻𝐺)
89	88	anasss 471	. 2 ⊢ ((𝜑 ∧ ((𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴) ∧ ((∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))))) → 𝐹𝐻𝐺)
90	45, 89	impbida 801	1 ⊢ (𝜑 → (𝐹𝐻𝐺 ↔ ((𝐹:𝐴⟶𝐵 ∧ 𝐺:𝐵⟶𝐴) ∧ ((∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 (𝑥 ≤ 𝑦 → (𝐹‘𝑥) ≲ (𝐹‘𝑦)) ∧ ∀𝑢 ∈ 𝐵 ∀𝑣 ∈ 𝐵 (𝑢 ≲ 𝑣 → (𝐺‘𝑢) ≤ (𝐺‘𝑣))) ∧ (∀𝑢 ∈ 𝐵 (𝐹‘(𝐺‘𝑢)) ≲ 𝑢 ∧ ∀𝑥 ∈ 𝐴 𝑥 ≤ (𝐺‘(𝐹‘𝑥)))))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 400   = wceq 1539   ∈ wcel 2112  ∀wral 3068   class class class wbr 5025  ⟶wf 6324  ‘cfv 6328  (class class class)co 7143  Basecbs 16526  lecple 16615   Proset cproset 17587  MGalConncmgc 30768

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1912  ax-6 1971  ax-7 2016  ax-8 2114  ax-9 2122  ax-10 2143  ax-11 2159  ax-12 2176  ax-ext 2730  ax-sep 5162  ax-nul 5169  ax-pow 5227  ax-pr 5291  ax-un 7452

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 846  df-3an 1087  df-tru 1542  df-ex 1783  df-nf 1787  df-sb 2071  df-mo 2558  df-eu 2589  df-clab 2737  df-cleq 2751  df-clel 2831  df-nfc 2899  df-ral 3073  df-rex 3074  df-rab 3077  df-v 3409  df-sbc 3694  df-csb 3802  df-dif 3857  df-un 3859  df-in 3861  df-ss 3871  df-nul 4222  df-if 4414  df-pw 4489  df-sn 4516  df-pr 4518  df-op 4522  df-uni 4792  df-br 5026  df-opab 5088  df-id 5423  df-xp 5523  df-rel 5524  df-cnv 5525  df-co 5526  df-dm 5527  df-rn 5528  df-iota 6287  df-fun 6330  df-fn 6331  df-f 6332  df-fv 6336  df-ov 7146  df-oprab 7147  df-mpo 7148  df-map 8411  df-proset 17589  df-mgc 30770

This theorem is referenced by:  mgcmnt1d  30786  mgcmnt2d  30787  mgcf1olem1  30790  mgcf1olem2  30791  mgcf1o  30792