def un.succ_cong
import bend-osdev-u32@0.1.0.0/PROOF.bend as PROOFimport Base
51def un.succ_cong(-a: Nat, -b: Nat, e: {a == b : Nat}) -> {1n+a == 1n+b : Nat}:
52 %e : {1n+a == 1n+_ : Nat}
53 {==}
import bend-osdev-u32@0.1.0.0/PROOF.bend as PROOFimport Base
51def un.succ_cong(-a: Nat, -b: Nat, e: {a == b : Nat}) -> {1n+a == 1n+b : Nat}:
52 %e : {1n+a == 1n+_ : Nat}
53 {==}