apply Free.equiv.coinduction
C : _root_.Container
R : Type u₁
⊢ ∀ (x y : Free C R), x = y → eq x y
case a
C : _root_.Container
R : Type u₁
⊢ ∀ (x y : Free C R), x = y → equivF Eq ((fun x y => x = y) ⊔ pequiv Eq fun x y => x = y) x y