apply QPF.M.bisim
F : Type u → Type u
inst : QPF F
R : Type u
⊢ ∀ (x y : Free F R), x >>= pure = y → x = y
case h₀
F : Type u → Type u
inst : QPF F
R : Type u
⊢ ∀ (x y : QPF.M (FreeF F R)),
    x >>= pure = y → QPF.M.liftr (FreeF F R) (fun x y => x >>= pure = y) (QPF.M.destruct x) (QPF.M.destruct y)