Metamath Proof Explorer


Theorem submateqlem1

Description: Lemma for submateq . (Contributed by Thierry Arnoux, 25-Aug-2020)

Ref Expression
Hypotheses submateqlem1.n φ N
submateqlem1.k φ K 1 N
submateqlem1.m φ M 1 N 1
submateqlem1.1 φ K M
Assertion submateqlem1 φ M K N M + 1 1 N K

Proof

Step Hyp Ref Expression
1 submateqlem1.n φ N
2 submateqlem1.k φ K 1 N
3 submateqlem1.m φ M 1 N 1
4 submateqlem1.1 φ K M
5 fz1ssnn 1 N 1
6 5 3 sseldi φ M
7 6 nnred φ M
8 1 nnred φ N
9 1red φ 1
10 8 9 resubcld φ N 1
11 elfzle2 M 1 N 1 M N 1
12 3 11 syl φ M N 1
13 8 lem1d φ N 1 N
14 7 10 8 12 13 letrd φ M N
15 4 14 jca φ K M M N
16 6 nnzd φ M
17 fz1ssnn 1 N
18 17 2 sseldi φ K
19 18 nnzd φ K
20 1 nnzd φ N
21 elfz M K N M K N K M M N
22 16 19 20 21 syl3anc φ M K N K M M N
23 15 22 mpbird φ M K N
24 6 nnnn0d φ M 0
25 24 nn0ge0d φ 0 M
26 1re 1
27 addge02 1 M 0 M 1 M + 1
28 26 7 27 sylancr φ 0 M 1 M + 1
29 25 28 mpbid φ 1 M + 1
30 1 nnnn0d φ N 0
31 nn0ltlem1 M 0 N 0 M < N M N 1
32 24 30 31 syl2anc φ M < N M N 1
33 12 32 mpbird φ M < N
34 nnltp1le M N M < N M + 1 N
35 6 1 34 syl2anc φ M < N M + 1 N
36 33 35 mpbid φ M + 1 N
37 29 36 jca φ 1 M + 1 M + 1 N
38 16 peano2zd φ M + 1
39 1zzd φ 1
40 elfz M + 1 1 N M + 1 1 N 1 M + 1 M + 1 N
41 38 39 20 40 syl3anc φ M + 1 1 N 1 M + 1 M + 1 N
42 37 41 mpbird φ M + 1 1 N
43 18 nnred φ K
44 nnleltp1 K M K M K < M + 1
45 18 6 44 syl2anc φ K M K < M + 1
46 4 45 mpbid φ K < M + 1
47 43 46 ltned φ K M + 1
48 47 necomd φ M + 1 K
49 nelsn M + 1 K ¬ M + 1 K
50 48 49 syl φ ¬ M + 1 K
51 42 50 eldifd φ M + 1 1 N K
52 23 51 jca φ M K N M + 1 1 N K