~/jendhub

def nat_lt_add

bend-osdev-aead@0.1.0.0 · PROOF.bend:114

import bend-osdev-aead@0.1.0.0/PROOF.bend as PROOF
import Base

114def nat_lt_add(+x: Nat, t: Nat) -> {False{} == Nat.is_lt(Nat.add(x, t), t) : Bool}:
115  match t:
116    case 0n:
117      %nat_add_zero(x) : {False{} == Nat.is_lt(_, 0n) : Bool}
118      nat_lt_zero(x)
119    case 1n+(+u):
120      %nat_add_succ(x, u) : {False{} == Nat.is_lt(_, 1n+u) : Bool}
121      nat_lt_add(x, u)

Uses (7)

Used by (1)