Metamath Proof Explorer


Theorem cvmlift2

Description: A two-dimensional version of cvmlift . There is a unique lift of functions on the unit square II tX II which commutes with the covering map. (Contributed by Mario Carneiro, 1-Jun-2015)

Ref Expression
Hypotheses cvmlift2.b 𝐵 = 𝐶
cvmlift2.f ( 𝜑𝐹 ∈ ( 𝐶 CovMap 𝐽 ) )
cvmlift2.g ( 𝜑𝐺 ∈ ( ( II ×t II ) Cn 𝐽 ) )
cvmlift2.p ( 𝜑𝑃𝐵 )
cvmlift2.i ( 𝜑 → ( 𝐹𝑃 ) = ( 0 𝐺 0 ) )
Assertion cvmlift2 ( 𝜑 → ∃! 𝑓 ∈ ( ( II ×t II ) Cn 𝐶 ) ( ( 𝐹𝑓 ) = 𝐺 ∧ ( 0 𝑓 0 ) = 𝑃 ) )

Proof

Step Hyp Ref Expression
1 cvmlift2.b 𝐵 = 𝐶
2 cvmlift2.f ( 𝜑𝐹 ∈ ( 𝐶 CovMap 𝐽 ) )
3 cvmlift2.g ( 𝜑𝐺 ∈ ( ( II ×t II ) Cn 𝐽 ) )
4 cvmlift2.p ( 𝜑𝑃𝐵 )
5 cvmlift2.i ( 𝜑 → ( 𝐹𝑃 ) = ( 0 𝐺 0 ) )
6 coeq2 ( = 𝑔 → ( 𝐹 ) = ( 𝐹𝑔 ) )
7 oveq1 ( 𝑤 = 𝑧 → ( 𝑤 𝐺 0 ) = ( 𝑧 𝐺 0 ) )
8 7 cbvmptv ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑧 𝐺 0 ) )
9 8 a1i ( = 𝑔 → ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑧 𝐺 0 ) ) )
10 6 9 eqeq12d ( = 𝑔 → ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ↔ ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑧 𝐺 0 ) ) ) )
11 fveq1 ( = 𝑔 → ( ‘ 0 ) = ( 𝑔 ‘ 0 ) )
12 11 eqeq1d ( = 𝑔 → ( ( ‘ 0 ) = 𝑃 ↔ ( 𝑔 ‘ 0 ) = 𝑃 ) )
13 10 12 anbi12d ( = 𝑔 → ( ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ↔ ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑧 𝐺 0 ) ) ∧ ( 𝑔 ‘ 0 ) = 𝑃 ) ) )
14 13 cbvriotavw ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) = ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑧 𝐺 0 ) ) ∧ ( 𝑔 ‘ 0 ) = 𝑃 ) )
15 coeq2 ( 𝑘 = 𝑔 → ( 𝐹𝑘 ) = ( 𝐹𝑔 ) )
16 oveq2 ( 𝑤 = 𝑧 → ( 𝑢 𝐺 𝑤 ) = ( 𝑢 𝐺 𝑧 ) )
17 16 cbvmptv ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) )
18 17 a1i ( 𝑘 = 𝑔 → ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) )
19 15 18 eqeq12d ( 𝑘 = 𝑔 → ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ↔ ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ) )
20 fveq1 ( 𝑘 = 𝑔 → ( 𝑘 ‘ 0 ) = ( 𝑔 ‘ 0 ) )
21 20 eqeq1d ( 𝑘 = 𝑔 → ( ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ↔ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) )
22 19 21 anbi12d ( 𝑘 = 𝑔 → ( ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ∧ ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ↔ ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) )
23 22 cbvriotavw ( 𝑘 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ∧ ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) = ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) )
24 oveq1 ( 𝑢 = 𝑥 → ( 𝑢 𝐺 𝑧 ) = ( 𝑥 𝐺 𝑧 ) )
25 24 mpteq2dv ( 𝑢 = 𝑥 → ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) )
26 25 eqeq2d ( 𝑢 = 𝑥 → ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ↔ ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ) )
27 fveq2 ( 𝑢 = 𝑥 → ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) )
28 27 eqeq2d ( 𝑢 = 𝑥 → ( ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ↔ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) )
29 26 28 anbi12d ( 𝑢 = 𝑥 → ( ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ↔ ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) )
30 29 riotabidv ( 𝑢 = 𝑥 → ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) = ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) )
31 23 30 syl5eq ( 𝑢 = 𝑥 → ( 𝑘 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ∧ ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) = ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) )
32 31 fveq1d ( 𝑢 = 𝑥 → ( ( 𝑘 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ∧ ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) ‘ 𝑣 ) = ( ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) ‘ 𝑣 ) )
33 fveq2 ( 𝑣 = 𝑦 → ( ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) ‘ 𝑣 ) = ( ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) ‘ 𝑦 ) )
34 32 33 cbvmpov ( 𝑢 ∈ ( 0 [,] 1 ) , 𝑣 ∈ ( 0 [,] 1 ) ↦ ( ( 𝑘 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑘 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑢 𝐺 𝑤 ) ) ∧ ( 𝑘 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑢 ) ) ) ‘ 𝑣 ) ) = ( 𝑥 ∈ ( 0 [,] 1 ) , 𝑦 ∈ ( 0 [,] 1 ) ↦ ( ( 𝑔 ∈ ( II Cn 𝐶 ) ( ( 𝐹𝑔 ) = ( 𝑧 ∈ ( 0 [,] 1 ) ↦ ( 𝑥 𝐺 𝑧 ) ) ∧ ( 𝑔 ‘ 0 ) = ( ( ∈ ( II Cn 𝐶 ) ( ( 𝐹 ) = ( 𝑤 ∈ ( 0 [,] 1 ) ↦ ( 𝑤 𝐺 0 ) ) ∧ ( ‘ 0 ) = 𝑃 ) ) ‘ 𝑥 ) ) ) ‘ 𝑦 ) )
35 1 2 3 4 5 14 34 cvmlift2lem13 ( 𝜑 → ∃! 𝑓 ∈ ( ( II ×t II ) Cn 𝐶 ) ( ( 𝐹𝑓 ) = 𝐺 ∧ ( 0 𝑓 0 ) = 𝑃 ) )