diff options
| author | Andreas Grois <andi@grois.info> | 2024-11-28 21:53:47 +0100 |
|---|---|---|
| committer | Andreas Grois <andi@grois.info> | 2024-11-28 21:53:47 +0100 |
| commit | 4848d2516919ab7e5652b20e2b33e7cc39a9d4d9 (patch) | |
| tree | b2def2ef7c9d617a19b1963f4af9c5ece8f818f4 /Common/Nat.lean | |
| parent | 7e44f6330705f6cd3c3814e65d8918ac7e53c819 (diff) | |
Day 14, Part 1.
Diffstat (limited to 'Common/Nat.lean')
| -rw-r--r-- | Common/Nat.lean | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Common/Nat.lean b/Common/Nat.lean index 3a605a9..9d0ee29 100644 --- a/Common/Nat.lean +++ b/Common/Nat.lean @@ -20,3 +20,6 @@ theorem lt_of_pred_lt {a b : Nat} (h₁ : a < b.pred) : (a < b) := match b with | 0 => h₁ | _ + 1 => /-(Nat.pred_succ a).substr $-/ Nat.lt_succ_of_lt h₁ + +theorem lt_imp_pred_lt {a b : Nat} (h₁ : a < b) : (a.pred < b) := + Nat.lt_of_le_of_lt (Nat.pred_le a) h₁ |