apply Exists.intro s
case seq.inl
s : State
S T : Stmt
ihS : (¬∃ T t, (S, s) ⇒ (T, t)) ↔ S = Stmt.skip
ihT : (¬∃ T_1 t, (T, s) ⇒ (T_1, t)) ↔ T = Stmt.skip
h : S = Stmt.skip
⊢ ∃ t, (Stmt.skip; T, s) ⇒ (T, t)
case seq.inl
s : State
S T : Stmt
ihS : (¬∃ T t, (S, s) ⇒ (T, t)) ↔ S = Stmt.skip
ihT : (¬∃ T_1 t, (T, s) ⇒ (T_1, t)) ↔ T = Stmt.skip
h : S = Stmt.skip
⊢ (Stmt.skip; T, s) ⇒ (T, s)