Metamath Proof Explorer


Theorem tmachlem-exagreecover

Description: Particular properties of the finite cover of agreesets. (Contributed by Ender Ting, 28-Jul-2026)

Ref Expression
Hypotheses tmach.finalph φ U Fin
tmach.exindex φ I V
tmach.tapelist φ T = U I
tmach.scanmap φ S : T 𝒫 I Fin
tmach.agreemap φ A = z T y T | y S z = z S z
tmach.agreement φ z T y A z S y = S z
Assertion tmachlem-exagreecover φ a a ran A a Fin T = a

Proof

Step Hyp Ref Expression
1 tmach.finalph φ U Fin
2 tmach.exindex φ I V
3 tmach.tapelist φ T = U I
4 tmach.scanmap φ S : T 𝒫 I Fin
5 tmach.agreemap φ A = z T y T | y S z = z S z
6 tmach.agreement φ z T y A z S y = S z
7 1 2 3 4 5 6 tmachlem-extpcover φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a
8 df-rex a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a
9 7 8 sylib φ a a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a
10 simprl φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a 𝒫 ran A Fin
11 10 elin1d φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a 𝒫 ran A
12 11 elpwid φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a ran A
13 10 elin2d φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a Fin
14 1 2 3 4 5 6 tmachlem-tpbase φ 𝑡 i I 𝒫 U = T
15 14 adantr φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a 𝑡 i I 𝒫 U = T
16 simprr φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a 𝑡 i I 𝒫 U = a
17 15 16 eqtr3d φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a T = a
18 12 13 17 3jca φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a ran A a Fin T = a
19 18 ex φ a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a ran A a Fin T = a
20 19 eximdv φ a a 𝒫 ran A Fin 𝑡 i I 𝒫 U = a a a ran A a Fin T = a
21 9 20 mpd φ a a ran A a Fin T = a