Metamath Proof Explorer


Theorem grothprim

Description: The Tarski-Grothendieck Axiom ax-groth expanded into set theory primitives using 163 symbols (allowing the defined symbols /\ , \/ , <-> , and E. ). An open problem is whether a shorter equivalent exists (when expanded to primitives). (Contributed by NM, 16-Apr-2007)

Ref Expression
Assertion grothprim 𝑦 ( 𝑥𝑦 ∧ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) )

Proof

Step Hyp Ref Expression
1 axgroth4 𝑦 ( 𝑥𝑦 ∧ ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) )
2 3anass ( ( 𝑥𝑦 ∧ ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ↔ ( 𝑥𝑦 ∧ ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ) )
3 dfss2 ( 𝑤𝑧 ↔ ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) )
4 elin ( 𝑤 ∈ ( 𝑦𝑣 ) ↔ ( 𝑤𝑦𝑤𝑣 ) )
5 3 4 imbi12i ( ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) )
6 5 albii ( ∀ 𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) )
7 6 rexbii ( ∃ 𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ∃ 𝑣𝑦𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) )
8 df-rex ( ∃ 𝑣𝑦𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ↔ ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) )
9 7 8 bitri ( ∃ 𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) )
10 9 ralbii ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ∀ 𝑧𝑦𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) )
11 df-ral ( ∀ 𝑧𝑦𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ↔ ∀ 𝑧 ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) )
12 10 11 bitri ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ↔ ∀ 𝑧 ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) )
13 dfss2 ( 𝑧𝑦 ↔ ∀ 𝑤 ( 𝑤𝑧𝑤𝑦 ) )
14 vex 𝑦 ∈ V
15 14 difexi ( 𝑦𝑧 ) ∈ V
16 vex 𝑧 ∈ V
17 incom ( ( 𝑦𝑧 ) ∩ 𝑧 ) = ( 𝑧 ∩ ( 𝑦𝑧 ) )
18 disjdif ( 𝑧 ∩ ( 𝑦𝑧 ) ) = ∅
19 17 18 eqtri ( ( 𝑦𝑧 ) ∩ 𝑧 ) = ∅
20 15 16 19 brdom6disj ( ( 𝑦𝑧 ) ≼ 𝑧 ↔ ∃ 𝑤 ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) )
21 20 orbi1i ( ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ↔ ( ∃ 𝑤 ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) )
22 19.44v ( ∃ 𝑤 ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ↔ ( ∃ 𝑤 ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) )
23 21 22 bitr4i ( ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ↔ ∃ 𝑤 ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) )
24 13 23 imbi12i ( ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ↔ ( ∀ 𝑤 ( 𝑤𝑧𝑤𝑦 ) → ∃ 𝑤 ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) )
25 19.35 ( ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) ↔ ( ∀ 𝑤 ( 𝑤𝑧𝑤𝑦 ) → ∃ 𝑤 ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) )
26 24 25 bitr4i ( ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ↔ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) )
27 grothprimlem ( { 𝑣 , 𝑢 } ∈ 𝑤 ↔ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) )
28 27 mobii ( ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ↔ ∃* 𝑢𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) )
29 df-mo ( ∃* 𝑢𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) ↔ ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) )
30 28 29 bitri ( ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ↔ ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) )
31 30 ralbii ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ↔ ∀ 𝑣𝑧𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) )
32 df-ral ( ∀ 𝑣𝑧𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ↔ ∀ 𝑣 ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) )
33 31 32 bitri ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ↔ ∀ 𝑣 ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) )
34 df-ral ( ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ↔ ∀ 𝑣 ( 𝑣 ∈ ( 𝑦𝑧 ) → ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) )
35 eldif ( 𝑣 ∈ ( 𝑦𝑧 ) ↔ ( 𝑣𝑦 ∧ ¬ 𝑣𝑧 ) )
36 grothprimlem ( { 𝑢 , 𝑣 } ∈ 𝑤 ↔ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) )
37 36 rexbii ( ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ↔ ∃ 𝑢𝑧𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) )
38 df-rex ( ∃ 𝑢𝑧𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ↔ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) )
39 37 38 bitri ( ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ↔ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) )
40 35 39 imbi12i ( ( 𝑣 ∈ ( 𝑦𝑧 ) → ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ↔ ( ( 𝑣𝑦 ∧ ¬ 𝑣𝑧 ) → ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) )
41 pm5.6 ( ( ( 𝑣𝑦 ∧ ¬ 𝑣𝑧 ) → ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ↔ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) )
42 40 41 bitri ( ( 𝑣 ∈ ( 𝑦𝑧 ) → ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ↔ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) )
43 42 albii ( ∀ 𝑣 ( 𝑣 ∈ ( 𝑦𝑧 ) → ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ↔ ∀ 𝑣 ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) )
44 34 43 bitri ( ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ↔ ∀ 𝑣 ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) )
45 33 44 anbi12i ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ↔ ( ∀ 𝑣 ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ∀ 𝑣 ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) )
46 19.26 ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ↔ ( ∀ 𝑣 ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ∀ 𝑣 ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) )
47 45 46 bitr4i ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ↔ ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) )
48 47 orbi1i ( ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ↔ ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) )
49 48 imbi2i ( ( ( 𝑤𝑧𝑤𝑦 ) → ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) ↔ ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) )
50 49 exbii ( ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ( ∀ 𝑣𝑧 ∃* 𝑢 { 𝑣 , 𝑢 } ∈ 𝑤 ∧ ∀ 𝑣 ∈ ( 𝑦𝑧 ) ∃ 𝑢𝑧 { 𝑢 , 𝑣 } ∈ 𝑤 ) ∨ 𝑧𝑦 ) ) ↔ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) )
51 26 50 bitri ( ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ↔ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) )
52 51 albii ( ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ↔ ∀ 𝑧𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) )
53 12 52 anbi12i ( ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ↔ ( ∀ 𝑧 ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∀ 𝑧𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) )
54 19.26 ( ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) ↔ ( ∀ 𝑧 ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∀ 𝑧𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) )
55 53 54 bitr4i ( ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ↔ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) )
56 55 anbi2i ( ( 𝑥𝑦 ∧ ( ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ) ↔ ( 𝑥𝑦 ∧ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) ) )
57 2 56 bitri ( ( 𝑥𝑦 ∧ ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ↔ ( 𝑥𝑦 ∧ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) ) )
58 57 exbii ( ∃ 𝑦 ( 𝑥𝑦 ∧ ∀ 𝑧𝑦𝑣𝑦𝑤 ( 𝑤𝑧𝑤 ∈ ( 𝑦𝑣 ) ) ∧ ∀ 𝑧 ( 𝑧𝑦 → ( ( 𝑦𝑧 ) ≼ 𝑧𝑧𝑦 ) ) ) ↔ ∃ 𝑦 ( 𝑥𝑦 ∧ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) ) )
59 1 58 mpbi 𝑦 ( 𝑥𝑦 ∧ ∀ 𝑧 ( ( 𝑧𝑦 → ∃ 𝑣 ( 𝑣𝑦 ∧ ∀ 𝑤 ( ∀ 𝑢 ( 𝑢𝑤𝑢𝑧 ) → ( 𝑤𝑦𝑤𝑣 ) ) ) ) ∧ ∃ 𝑤 ( ( 𝑤𝑧𝑤𝑦 ) → ( ∀ 𝑣 ( ( 𝑣𝑧 → ∃ 𝑡𝑢 ( ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑣 = 𝑢 ) ) ) → 𝑢 = 𝑡 ) ) ∧ ( 𝑣𝑦 → ( 𝑣𝑧 ∨ ∃ 𝑢 ( 𝑢𝑧 ∧ ∃ 𝑔 ( 𝑔𝑤 ∧ ∀ ( 𝑔 ↔ ( = 𝑢 = 𝑣 ) ) ) ) ) ) ) ∨ 𝑧𝑦 ) ) ) )