def tr.add_succ
import bend-osdev-cipher-modes@0.1.0.0/PROOF.bend as PROOFimport Base
882def tr.add_succ(+a: Nat, +n: Nat) -> {Nat.add(a, 1n+n) == 1n+Nat.add(a, n) : Nat}:
883 match a:
884 case 0n:
885 {==}
886 case 1n+q:
887 Equal.cong(Nat, Nat, x => 1n+x, Nat.add(q, 1n+n), 1n+Nat.add(q, n), tr.add_succ(q, n))