rfl
case refl.right
F : Type u → Type u
inst : QPF F
R S : Type u
k : R → Free F S
x y : QPF.M (FreeF F S)
⊢ (fun x => corec (bind.automaton k) (Sum.inr x)) <$> QPF.M.destruct x =
    (fun x => QPF.M.corec (bind.automaton k) (Sum.inr x)) <$> QPF.M.destruct x
no goals