intro x y h₁
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)
case h₀
F : Type u → Type u
inst : QPF F
R : Type u
x y : QPF.M (FreeF F R)
h₁ : x >>= pure = y
⊢ QPF.M.liftr (FreeF F R) (fun x y => x >>= pure = y) (QPF.M.destruct x) (QPF.M.destruct y)