intro word
case mk
α : Type
inst✝ : DecidableEq α
g : FreeGroup α
⊢ ∀ (a : List (α × Bool)), mk (reducedWord (Quot.mk Step a)) = Quot.mk Step a
case mk
α : Type
inst✝ : DecidableEq α
g : FreeGroup α
word : List (α × Bool)
⊢ mk (reducedWord (Quot.mk Step word)) = Quot.mk Step word