~/jendhub

def ngt_le

bend-kit-collections@0.1.4.1 · nat_order.bend:224

import bend-kit-collections@0.1.4.1/nat_order.bend as NatOrder
import Base
import bend-mathlib@0.7.4.0/nat.bend as MNat
import bend-mathlib@0.7.4.0/bool.bend as MBool

224def ngt_le(a: Nat, b: Nat, e: {Nat.is_gt(a, b) == False{} : Bool}) -> LE(a, b):
225  match a b:
226    case 0n b:
227      MNat.zero_le(b)
228    case 1n+ap 0n:
229      Empty.absurd(LE(1n+ap, 0n), MBool.true_ne_false()(e))
230    case 1n+ap 1n+bp:
231      ngt_le(ap, bp, e)

Uses (7)

Used by (1)