have : n + step k ≃ step m' := calc
  n + step k   ≃ _ := add_step
  step (n + k) ≃ _ := AA.subst₁ ‹n + k ≃ m'›
  step m'      ≃ _ := Rel.refl
n m m' : Nat
a✝ : n ≤ m'
this : le n m'
k : Nat
h✝ : n + k ≃ m'
⊢ le n (step m')
n m m' : Nat
a✝ : n ≤ m'
this✝ : le n m'
k : Nat
h✝ : n + k ≃ m'
this : n + step k ≃ step m'
⊢ le n (step m')