intro Ss Ss' hrtc
S T : Stmt
s u : State
h : RTC SmallStep (S, s) (Stmt.skip, u)
⊢ ∀ (a b : Stmt × State), a ⇒ b → (fun Ss => (Ss.fst; T, Ss.snd)) a ⇒ (fun Ss => (Ss.fst; T, Ss.snd)) b
S T : Stmt
s u : State
h : RTC SmallStep (S, s) (Stmt.skip, u)
Ss Ss' : Stmt × State
hrtc : Ss ⇒ Ss'
⊢ (fun Ss => (Ss.fst; T, Ss.snd)) Ss ⇒ (fun Ss => (Ss.fst; T, Ss.snd)) Ss'