Step | Hyp | Ref
| Expression |
1 | | breq1 5150 |
. . . . 5
β’ (π = π’ β (π β€ (π β¨ π) β π’ β€ (π β¨ π))) |
2 | | cdleme40.g |
. . . . . . . . . . . 12
β’ πΊ = ((π β¨ π) β§ (πΈ β¨ ((π β¨ π‘) β§ π))) |
3 | | oveq1 7411 |
. . . . . . . . . . . . . . 15
β’ (π = π’ β (π β¨ π‘) = (π’ β¨ π‘)) |
4 | 3 | oveq1d 7419 |
. . . . . . . . . . . . . 14
β’ (π = π’ β ((π β¨ π‘) β§ π) = ((π’ β¨ π‘) β§ π)) |
5 | 4 | oveq2d 7420 |
. . . . . . . . . . . . 13
β’ (π = π’ β (πΈ β¨ ((π β¨ π‘) β§ π)) = (πΈ β¨ ((π’ β¨ π‘) β§ π))) |
6 | 5 | oveq2d 7420 |
. . . . . . . . . . . 12
β’ (π = π’ β ((π β¨ π) β§ (πΈ β¨ ((π β¨ π‘) β§ π))) = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) |
7 | 2, 6 | eqtrid 2785 |
. . . . . . . . . . 11
β’ (π = π’ β πΊ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) |
8 | 7 | eqeq2d 2744 |
. . . . . . . . . 10
β’ (π = π’ β (π¦ = πΊ β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))))) |
9 | 8 | imbi2d 341 |
. . . . . . . . 9
β’ (π = π’ β (((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ) β ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))))) |
10 | 9 | ralbidv 3178 |
. . . . . . . 8
β’ (π = π’ β (βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ) β βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))))) |
11 | 10 | riotabidv 7362 |
. . . . . . 7
β’ (π = π’ β (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ)) = (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))))) |
12 | | eqeq1 2737 |
. . . . . . . . . . 11
β’ (π¦ = π§ β (π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))) β π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))))) |
13 | 12 | imbi2d 341 |
. . . . . . . . . 10
β’ (π¦ = π§ β (((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) β ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))))) |
14 | 13 | ralbidv 3178 |
. . . . . . . . 9
β’ (π¦ = π§ β (βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) β βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))))) |
15 | | breq1 5150 |
. . . . . . . . . . . . 13
β’ (π‘ = π£ β (π‘ β€ π β π£ β€ π)) |
16 | 15 | notbid 318 |
. . . . . . . . . . . 12
β’ (π‘ = π£ β (Β¬ π‘ β€ π β Β¬ π£ β€ π)) |
17 | | breq1 5150 |
. . . . . . . . . . . . 13
β’ (π‘ = π£ β (π‘ β€ (π β¨ π) β π£ β€ (π β¨ π))) |
18 | 17 | notbid 318 |
. . . . . . . . . . . 12
β’ (π‘ = π£ β (Β¬ π‘ β€ (π β¨ π) β Β¬ π£ β€ (π β¨ π))) |
19 | 16, 18 | anbi12d 632 |
. . . . . . . . . . 11
β’ (π‘ = π£ β ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β (Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)))) |
20 | | oveq1 7411 |
. . . . . . . . . . . . . . . . 17
β’ (π‘ = π£ β (π‘ β¨ π) = (π£ β¨ π)) |
21 | | oveq2 7412 |
. . . . . . . . . . . . . . . . . . 19
β’ (π‘ = π£ β (π β¨ π‘) = (π β¨ π£)) |
22 | 21 | oveq1d 7419 |
. . . . . . . . . . . . . . . . . 18
β’ (π‘ = π£ β ((π β¨ π‘) β§ π) = ((π β¨ π£) β§ π)) |
23 | 22 | oveq2d 7420 |
. . . . . . . . . . . . . . . . 17
β’ (π‘ = π£ β (π β¨ ((π β¨ π‘) β§ π)) = (π β¨ ((π β¨ π£) β§ π))) |
24 | 20, 23 | oveq12d 7422 |
. . . . . . . . . . . . . . . 16
β’ (π‘ = π£ β ((π‘ β¨ π) β§ (π β¨ ((π β¨ π‘) β§ π))) = ((π£ β¨ π) β§ (π β¨ ((π β¨ π£) β§ π)))) |
25 | | cdleme40.e |
. . . . . . . . . . . . . . . 16
β’ πΈ = ((π‘ β¨ π) β§ (π β¨ ((π β¨ π‘) β§ π))) |
26 | | cdleme40r.t |
. . . . . . . . . . . . . . . 16
β’ π = ((π£ β¨ π) β§ (π β¨ ((π β¨ π£) β§ π))) |
27 | 24, 25, 26 | 3eqtr4g 2798 |
. . . . . . . . . . . . . . 15
β’ (π‘ = π£ β πΈ = π) |
28 | | oveq2 7412 |
. . . . . . . . . . . . . . . 16
β’ (π‘ = π£ β (π’ β¨ π‘) = (π’ β¨ π£)) |
29 | 28 | oveq1d 7419 |
. . . . . . . . . . . . . . 15
β’ (π‘ = π£ β ((π’ β¨ π‘) β§ π) = ((π’ β¨ π£) β§ π)) |
30 | 27, 29 | oveq12d 7422 |
. . . . . . . . . . . . . 14
β’ (π‘ = π£ β (πΈ β¨ ((π’ β¨ π‘) β§ π)) = (π β¨ ((π’ β¨ π£) β§ π))) |
31 | 30 | oveq2d 7420 |
. . . . . . . . . . . . 13
β’ (π‘ = π£ β ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))) = ((π β¨ π) β§ (π β¨ ((π’ β¨ π£) β§ π)))) |
32 | | cdleme40r.x |
. . . . . . . . . . . . 13
β’ π = ((π β¨ π) β§ (π β¨ ((π’ β¨ π£) β§ π))) |
33 | 31, 32 | eqtr4di 2791 |
. . . . . . . . . . . 12
β’ (π‘ = π£ β ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))) = π) |
34 | 33 | eqeq2d 2744 |
. . . . . . . . . . 11
β’ (π‘ = π£ β (π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))) β π§ = π)) |
35 | 19, 34 | imbi12d 345 |
. . . . . . . . . 10
β’ (π‘ = π£ β (((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) β ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π))) |
36 | 35 | cbvralvw 3235 |
. . . . . . . . 9
β’
(βπ‘ β
π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π§ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) β βπ£ β π΄ ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π)) |
37 | 14, 36 | bitrdi 287 |
. . . . . . . 8
β’ (π¦ = π§ β (βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π)))) β βπ£ β π΄ ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π))) |
38 | 37 | cbvriotavw 7370 |
. . . . . . 7
β’
(β©π¦
β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = ((π β¨ π) β§ (πΈ β¨ ((π’ β¨ π‘) β§ π))))) = (β©π§ β π΅ βπ£ β π΄ ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π)) |
39 | 11, 38 | eqtrdi 2789 |
. . . . . 6
β’ (π = π’ β (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ)) = (β©π§ β π΅ βπ£ β π΄ ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π))) |
40 | | cdleme40.i |
. . . . . 6
β’ πΌ = (β©π¦ β π΅ βπ‘ β π΄ ((Β¬ π‘ β€ π β§ Β¬ π‘ β€ (π β¨ π)) β π¦ = πΊ)) |
41 | | cdleme40r.o |
. . . . . 6
β’ π = (β©π§ β π΅ βπ£ β π΄ ((Β¬ π£ β€ π β§ Β¬ π£ β€ (π β¨ π)) β π§ = π)) |
42 | 39, 40, 41 | 3eqtr4g 2798 |
. . . . 5
β’ (π = π’ β πΌ = π) |
43 | | oveq1 7411 |
. . . . . . 7
β’ (π = π’ β (π β¨ π) = (π’ β¨ π)) |
44 | | oveq2 7412 |
. . . . . . . . 9
β’ (π = π’ β (π β¨ π ) = (π β¨ π’)) |
45 | 44 | oveq1d 7419 |
. . . . . . . 8
β’ (π = π’ β ((π β¨ π ) β§ π) = ((π β¨ π’) β§ π)) |
46 | 45 | oveq2d 7420 |
. . . . . . 7
β’ (π = π’ β (π β¨ ((π β¨ π ) β§ π)) = (π β¨ ((π β¨ π’) β§ π))) |
47 | 43, 46 | oveq12d 7422 |
. . . . . 6
β’ (π = π’ β ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) = ((π’ β¨ π) β§ (π β¨ ((π β¨ π’) β§ π)))) |
48 | | cdleme40.d |
. . . . . 6
β’ π· = ((π β¨ π) β§ (π β¨ ((π β¨ π ) β§ π))) |
49 | | cdleme40r.y |
. . . . . 6
β’ π = ((π’ β¨ π) β§ (π β¨ ((π β¨ π’) β§ π))) |
50 | 47, 48, 49 | 3eqtr4g 2798 |
. . . . 5
β’ (π = π’ β π· = π) |
51 | 1, 42, 50 | ifbieq12d 4555 |
. . . 4
β’ (π = π’ β if(π β€ (π β¨ π), πΌ, π·) = if(π’ β€ (π β¨ π), π, π)) |
52 | | cdleme40.n |
. . . 4
β’ π = if(π β€ (π β¨ π), πΌ, π·) |
53 | | cdleme40r.v |
. . . 4
β’ π = if(π’ β€ (π β¨ π), π, π) |
54 | 51, 52, 53 | 3eqtr4g 2798 |
. . 3
β’ (π = π’ β π = π) |
55 | 54 | cbvcsbv 3904 |
. 2
β’
β¦π
/
π β¦π = β¦π
/ π’β¦π |
56 | 55 | a1i 11 |
1
β’ (π
β π΄ β β¦π
/ π β¦π = β¦π
/ π’β¦π) |