intro hloop
case mp
S : Stmt
s u : State
⊢ (Stmt.loop S, s) ⟹ u → s = u ∨ ∃ t, (S, s) ⟹ t ∧ (Stmt.loop S, t) ⟹ u
case mp
S : Stmt
s u : State
hloop : (Stmt.loop S, s) ⟹ u
⊢ s = u ∨ ∃ t, (S, s) ⟹ t ∧ (Stmt.loop S, t) ⟹ u