induction h₁ generalizing s₂ with
| assign x a s               => simp
| seq_step S S' T s s' hS ih => aesop
| seq_skip T s               => simp
| if_true B S T s hB         => aesop
| if_false B S T s hB        => aesop
| whileDo B S s              => aesop
Ss₀ Ss₁ : Stmt × State
s₂ : State
h₁ : Ss₀ ⇒ Ss₁
⊢ Ss₁ ⟹ s₂ → Ss₀ ⟹ s₂
no goals