cases h
case refl.refl.pure.a.h.a
F : Type u → Type u
inst : QPF F
R S T : Type u
k₁ : R → Free F S
k₂ : S → Free F T
y✝¹ z : Free F T
r : R
x✝ y✝ : Free F T
h✝ : eq x✝ y✝
x y : Free F T
h : ⊥ x y
⊢ ∃ x_1, x_1 >>= k₁ >>= k₂ = x ∧ (x_1 >>= fun x => k₁ x >>= k₂) = y
no goals