apply BigStep_of_SmallStep_of_BigStep hST
case head.mk
Ss✝ : Stmt × State
t : State
Ss : Stmt × State
S' : Stmt
s' : State
hST : Ss ⇒ (S', s')
hsmallT : RTC SmallStep (S', s') (Stmt.skip, t)
ih : (S', s') ⟹ t
⊢ Ss ⟹ t
case head.mk
Ss✝ : Stmt × State
t : State
Ss : Stmt × State
S' : Stmt
s' : State
hST : Ss ⇒ (S', s')
hsmallT : RTC SmallStep (S', s') (Stmt.skip, t)
ih : (S', s') ⟹ t
⊢ (S', s') ⟹ t