intro n v h1 n' h
α β : Type
m1 : Computation α
m2 : α → Computation β
⊢ ∀ (n : Nat) (v : β), bind_fun m1 m2 n = some v → ∀ (n' : Nat), n' ≥ n → bind_fun m1 m2 n' = some v
α β : Type
m1 : Computation α
m2 : α → Computation β
n : Nat
v : β
h1 : bind_fun m1 m2 n = some v
n' : Nat
h : n' ≥ n
⊢ bind_fun m1 m2 n' = some v