exact e.preserves_progress ▸ hi
α : Type
inst✝ : Hierarchical α
s₁ : State α
out : Reaction.Output
s₂ : State α
hd✝ : Change
s₁✝ s₂✝ : State α
tl✝ : Reaction.Output
s₃✝ : State α
e : s₁✝ -[hd✝]→ s₂✝
a✝ : s₂✝ -[tl✝]→ s₃✝
hi : s₂✝.progress = s₃✝.progress
⊢ s₁✝.progress = s₃✝.progress
no goals