HomeHome Metamath Proof Explorer < Previous   Next >
Related theorems
Unicode version

Theorem zltp1let 6128
Description: Integer ordering relation.
Assertion
Ref Expression
zltp1let |- ((M e. ZZ /\ N e. ZZ) -> (M < N <-> (M + 1) <_ N))

Proof of Theorem zltp1let
StepHypRef Expression
1 nn0ltp1let 6074 . . . . . 6 |- ((M e. NN0 /\ N e. NN0) -> (M < N <-> (M + 1) <_ N))
21a1i 8 . . . . 5 |- ((M e. RR /\ N e. RR) -> ((M e. NN0 /\ N e. NN0) -> (M < N <-> (M + 1) <_ N)))
3 recnt 5285 . . . . . . . . . . 11 |- (M e. RR -> M e. CC)
4 0cn 5300 . . . . . . . . . . . . 13 |- 0 e. CC
5 negcon1t 5382 . . . . . . . . . . . . 13 |- ((M e. CC /\ 0 e. CC) -> (-uM = 0 <-> -u0 = M))
64, 5mpan2 694 . . . . . . . . . . . 12 |- (M e. CC -> (-uM = 0 <-> -u0 = M))
7 neg0 5387 . . . . . . . . . . . . . 14 |- -u0 = 0
87eqeq1i 1474 . . . . . . . . . . . . 13 |- (-u0 = M <-> 0 = M)
9 eqcom 1469 . . . . . . . . . . . . 13 |- (0 = M <-> M = 0)
108, 9bitr 173 . . . . . . . . . . . 12 |- (-u0 = M <-> M = 0)
116, 10syl6bb 534 . . . . . . . . . . 11 |- (M e. CC -> (-uM = 0 <-> M = 0))
123, 11syl 10 . . . . . . . . . 10 |- (M e. RR -> (-uM = 0 <-> M = 0))
1312orbi2d 612 . . . . . . . . 9 |- (M e. RR -> ((-uM e. NN \/ -uM = 0) <-> (-uM e. NN \/ M = 0)))
14 elnn0 6048 . . . . . . . . 9 |- (-uM e. NN0 <-> (-uM e. NN \/ -uM = 0))
1513, 14syl5bb 530 . . . . . . . 8 |- (M e. RR -> (-uM e. NN0 <-> (-uM e. NN \/ M = 0)))
16 elnn0 6048 . . . . . . . . 9 |- (N e. NN0 <-> (N e. NN \/ N = 0))
1716a1i 8 . . . . . . . 8 |- (M e. RR -> (N e. NN0 <-> (N e. NN \/ N = 0)))
1815, 17anbi12d 626 . . . . . . 7 |- (M e. RR -> ((-uM e. NN0 /\ N e. NN0) <-> ((-uM e. NN \/ M = 0) /\ (N e. NN \/ N = 0))))
1918adantr 389 . . . . . 6 |- ((M e. RR /\ N e. RR) -> ((-uM e. NN0 /\ N e. NN0) <-> ((-uM e. NN \/ M = 0) /\ (N e. NN \/ N = 0))))
20 lt0neg1t 5641 . . . . . . . . . . . . . . . 16 |- (M e. RR -> (M < 0 <-> 0 < -uM))
21 nngt0t 5894 . . . . . . . . . . . . . . . 16 |- (-uM e. NN -> 0 < -uM)
2220, 21syl5bir 210 . . . . . . . . . . . . . . 15 |- (M e. RR -> (-uM e. NN -> M < 0))
2322imp 350 . . . . . . . . . . . . . 14 |- ((M e. RR /\ -uM e. NN) -> M < 0)
24 nngt0t 5894 . . . . . . . . . . . . . 14 |- (N e. NN -> 0 < N)
2523, 24anim12i 333 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> (M < 0 /\ 0 < N))
26 0re 5412 . . . . . . . . . . . . . . . 16 |- 0 e. RR
27 axlttrn 5476 . . . . . . . . . . . . . . . 16 |- ((M e. RR /\ 0 e. RR /\ N e. RR) -> ((M < 0 /\ 0 < N) -> M < N))
2826, 27mp3an2 901 . . . . . . . . . . . . . . 15 |- ((M e. RR /\ N e. RR) -> ((M < 0 /\ 0 < N) -> M < N))
29 nnret 5877 . . . . . . . . . . . . . . 15 |- (N e. NN -> N e. RR)
3028, 29sylan2 451 . . . . . . . . . . . . . 14 |- ((M e. RR /\ N e. NN) -> ((M < 0 /\ 0 < N) -> M < N))
3130adantlr 393 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> ((M < 0 /\ 0 < N) -> M < N))
3225, 31mpd 26 . . . . . . . . . . . 12 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> M < N)
33 peano2re 5408 . . . . . . . . . . . . . 14 |- (M e. RR -> (M + 1) e. RR)
3433ad2antrr 404 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> (M + 1) e. RR)
35 1re 5407 . . . . . . . . . . . . . 14 |- 1 e. RR
3635a1i 8 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> 1 e. RR)
3729adantl 388 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> N e. RR)
38 ltlet 5493 . . . . . . . . . . . . . . . . . . 19 |- ((M e. RR /\ 0 e. RR) -> (M < 0 -> M <_ 0))
3926, 38mpan2 694 . . . . . . . . . . . . . . . . . 18 |- (M e. RR -> (M < 0 -> M <_ 0))
4039adantr 389 . . . . . . . . . . . . . . . . 17 |- ((M e. RR /\ -uM e. NN) -> (M < 0 -> M <_ 0))
4123, 40mpd 26 . . . . . . . . . . . . . . . 16 |- ((M e. RR /\ -uM e. NN) -> M <_ 0)
42 leadd1t 5599 . . . . . . . . . . . . . . . . . 18 |- ((M e. RR /\ 0 e. RR /\ 1 e. RR) -> (M <_ 0 <-> (M + 1) <_ (0 + 1)))
4326, 35, 42mp3an23 905 . . . . . . . . . . . . . . . . 17 |- (M e. RR -> (M <_ 0 <-> (M + 1) <_ (0 + 1)))
4443adantr 389 . . . . . . . . . . . . . . . 16 |- ((M e. RR /\ -uM e. NN) -> (M <_ 0 <-> (M + 1) <_ (0 + 1)))
4541, 44mpbid 195 . . . . . . . . . . . . . . 15 |- ((M e. RR /\ -uM e. NN) -> (M + 1) <_ (0 + 1))
46 ax1cn 5241 . . . . . . . . . . . . . . . 16 |- 1 e. CC
4746addid2 5303 . . . . . . . . . . . . . . 15 |- (0 + 1) = 1
4845, 47syl6breq 2644 . . . . . . . . . . . . . 14 |- ((M e. RR /\ -uM e. NN) -> (M + 1) <_ 1)
4948adantr 389 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> (M + 1) <_ 1)
50 nnge1t 5891 . . . . . . . . . . . . . 14 |- (N e. NN -> 1 <_ N)
5150adantl 388 . . . . . . . . . . . . 13 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> 1 <_ N)
5234, 36, 37, 49, 51letrd 5499 . . . . . . . . . . . 12 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> (M + 1) <_ N)
5332, 52jca 288 . . . . . . . . . . 11 |- (((M e. RR /\ -uM e. NN) /\ N e. NN) -> (M < N /\ (M + 1) <_ N))
5453exp31 376 . . . . . . . . . 10 |- (M e. RR -> (-uM e. NN -> (N e. NN -> (M < N /\ (M + 1) <_ N))))
5554imp3a 361 . . . . . . . . 9 |- (M e. RR -> ((-uM e. NN /\ N e. NN) -> (M < N /\ (M + 1) <_ N)))
56 pm5.1 674 . . . . . . . . 9 |- ((M < N /\ (M + 1) <_ N) -> (M < N <-> (M + 1) <_ N))
5755, 56syl6 22 . . . . . . . 8 |- (M e. RR -> ((-uM e. NN /\ N e. NN) -> (M < N <-> (M + 1) <_ N)))
5857adantr 389 . . . . . . 7 |- ((M e. RR /\ N e. RR) -> ((-uM e. NN /\ N e. NN) -> (M < N <-> (M + 1) <_ N)))
59 breq1 2612 . . . . . . . . . . 11 |- (M = 0 -> (M < N <-> 0 < N))
60 opreq1 3953 . . . . . . . . . . . . 13 |- (M = 0 -> (M + 1) = (0 + 1))
6160, 47syl6eq 1515 . . . . . . . . . . . 12 |- (M = 0 -> (M + 1) = 1)
6261breq1d 2619 . . . . . . . . . . 11 |- (M = 0 -> ((M + 1) <_ N <-> 1 <_ N))
6359, 62bibi12d 627 . . . . . . . . . 10 |- (M = 0 -> ((M < N <-> (M + 1) <_ N) <-> (0 < N <-> 1 <_ N)))
64 pm5.1 674 . . . . . . . . . . 11 |- ((0 < N /\ 1 <_ N) -> (0 < N <-> 1 <_ N))
6564, 24, 50sylanc 471 . . . . . . . . . 10 |- (N e. NN -> (0 < N <-> 1 <_ N))
6663, 65syl5bir 210 . . . . . . . . 9 |- (M = 0 -> (N e. NN -> (M < N <-> (M + 1) <_ N)))
6766imp 350 . . . . . . . 8 |- ((M = 0 /\ N e. NN) -> (M < N <-> (M + 1) <_ N))
6867a1i 8 . . . . . . 7 |- ((M e. RR /\ N e. RR) -> ((M = 0 /\ N e. NN) -> (M < N <-> (M + 1) <_ N)))
69 breq2 2613 . . . . . . . . . . . 12 |- (N = 0 -> (M < N <-> M < 0))
70 breq2 2613 . . . . . . . . . . . 12 |- (N = 0 -> ((M + 1) <_ N <-> (M + 1) <_ 0))
7169, 70bibi12d 627 . . . . . . . . . . 11 |- (N = 0 -> ((M < N <-> (M + 1) <_ N) <-> (M < 0 <-> (M + 1) <_ 0)))
72 nnnn0t 6053 . . . . . . . . . . . . . 14 |- (-uM e. NN -> -uM e. NN0)
73 0nn0 6060 . . . . . . . . . . . . . . 15 |- 0 e. NN0
74 nn0ltlem1t 6076 . . . . . . . . . . . . . . 15 |- ((0 e. NN0 /\ -uM e. NN0) -> (0 < -uM <-> 0 <_ (-uM - 1)))
7573, 74mpan 693 . . . . . . . . . . . . . 14 |- (-uM e. NN0 -> (0 < -uM <-> 0 <_ (-uM - 1)))
7672, 75syl 10 . . . . . . . . . . . . 13 |- (-uM e. NN -> (0 < -uM <-> 0 <_ (-uM - 1)))
7776adantl 388 . . . . . . . . . . . 12 |- ((M e. RR /\ -uM e. NN) -> (0 < -uM <-> 0 <_ (-uM - 1)))
7820adantr 389 . . . . . . . . . . . 12 |- ((M e. RR /\ -uM e. NN) -> (M < 0 <-> 0 < -uM))
79 le0neg1t 5643 . . . . . . . . . . . . . . 15 |- ((M + 1) e. RR -> ((M + 1) <_ 0 <-> 0 <_ -u(M + 1)))
8033, 79syl 10 . . . . . . . . . . . . . 14 |- (M e. RR -> ((M + 1) <_ 0 <-> 0 <_ -u(M + 1)))
81 negdi2t 5428 . . . . . . . . . . . . . . . . 17 |- ((M e. CC /\ 1 e. CC) -> -u(M + 1) = (-uM - 1))
8246, 81mpan2 694 . . . . . . . . . . . . . . . 16 |- (M e. CC -> -u(M + 1) = (-uM - 1))
833, 82syl 10 . . . . . . . . . . . . . . 15 |- (M e. RR -> -u(M + 1) = (-uM - 1))
8483breq2d 2620 . . . . . . . . . . . . . 14 |- (M e. RR -> (0 <_ -u(M + 1) <-> 0