def ccmp.tag_le
import bend-osdev-cipher-modes@0.1.0.0/PROOF.bend as PROOFimport Base
import bend-osdev-cipher-modes@0.1.0.0/cipher_modes.bend as M
import bend-osdev-cipher-modes@0.1.0.0/ccm.bend as CC
1750def ccmp.tag_le(+m: Nat, +nl: Nat, +n: Nat, +u: Unit, h: {CC.ccm.checks(m, nl, n) == Done{u} : Result<&2, &2, M.CmError, Unit>}) -> {Nat.is_le(m, 16n) == True{} : Bool}:
1751 ccmp.tag_le.go(CC.ccm.tag_ok(m), m, nl, n, u)({==})(h)