law lt_of_add_lt_add_left
import bend-mathlib@0.8.1.0/nat.bend as Natimport Base
2773# A common left summand cancels in a strict inequality: k + a < k + b implies a < b.
2774law lt_of_add_lt_add_left:
2775 for k: Nat
2776 for -a: Nat
2777 for -b: Nat
2778 for h: lt(Nat.add(k, a), Nat.add(k, b))
2779 lt(a, b)