∀ {F : Type u → Type u} [q : QPF F] (r : QPF.Cofix F → QPF.Cofix F → Prop),
  (∀ (x : QPF.Cofix F), r x x) →
    (∀ (x y : QPF.Cofix F), r x y → Quot.mk r <$> x.dest = Quot.mk r <$> y.dest) → ∀ (x y : QPF.Cofix F), r x y → x = y