exact hi $ (e₁.comm_record e₂).symm ▸ e₂'
α : Type
inst✝ : Readable α
s s₁ s₂ : State α
out : Reaction.Output
rcn : ID
hd✝ : Change
s₁✝ s₂✝¹ : State α
tl✝ : Reaction.Output
s₃✝ : State α
e₁ : s₁✝ -[hd✝]→ s₂✝¹
a✝ : s₂✝¹ -[tl✝]→ s₃✝
hi : (record s₂✝¹ rcn) -[tl✝]→ s₂ → record s₃✝ rcn = s₂
s₂✝ : State α
e₂ : (record s₁✝ rcn) -[hd✝]→ s₂✝
e₂' : s₂✝ -[tl✝]→ s₂
⊢ record s₃✝ rcn = s₂
no goals