have : n + k' ≃ m' := AA.inject ‹step (n + k') ≃ step m'›
n m' k' : Nat
h✝ : n + step k' ≃ step m'
this : step (n + k') ≃ step m'
⊢ n ≤ step m'
n m' k' : Nat
h✝ : n + step k' ≃ step m'
this✝ : step (n + k') ≃ step m'
this : n + k' ≃ m'
⊢ n ≤ step m'