right
case mp.inr
n : Nat
x : ENat
m : Nat
h : n ≤ m
hm : x.leNat m = false
k : Nat
hge : n ≥ k
⊢ n + 1 ≤ k ∨ x.leNat k = false
case mp.inr.h
n : Nat
x : ENat
m : Nat
h : n ≤ m
hm : x.leNat m = false
k : Nat
hge : n ≥ k
⊢ x.leNat k = false