apply Exists.intro
case mp.seq
S₁ S₂ : Stmt
s t t✝ : State
hS✝ : (S₁, s) ⟹ t✝
hT✝ : (S₂, t✝) ⟹ t
⊢ ∃ u, (S₁, s) ⟹ u ∧ (S₂, u) ⟹ t
case mp.seq.h
S₁ S₂ : Stmt
s t t✝ : State
hS✝ : (S₁, s) ⟹ t✝
hT✝ : (S₂, t✝) ⟹ t
⊢ (S₁, s) ⟹ ?mp.seq.w ∧ (S₂, ?mp.seq.w) ⟹ t

case mp.seq.w
S₁ S₂ : Stmt
s t t✝ : State
hS✝ : (S₁, s) ⟹ t✝
hT✝ : (S₂, t✝) ⟹ t
⊢ State