intro x
F : Type u → Type u
inst : QPF F
R S : Type u
k : R → Free F S
⊢ ∀ (x : Free F S), corec (bind.automaton k) (Sum.inr x) = x
F : Type u → Type u
inst : QPF F
R S : Type u
k : R → Free F S
x : Free F S
⊢ corec (bind.automaton k) (Sum.inr x) = x