apply equivF.Free
case a.refl.Free
C : _root_.Container
R : Type u₁
x : Free C R
node : C.A
k : Container.B C node → Free C R
⊢ equivF Eq ((fun x y => x = y) ⊔ pequiv Eq fun x y => x = y) (construct (Functor.Free node k))
    (construct (Functor.Free node k))
case a.refl.Free.a
C : _root_.Container
R : Type u₁
x : Free C R
node : C.A
k : Container.B C node → Free C R
⊢ ∀ (x : Container.B C node), ((fun x y => x = y) ⊔ pequiv Eq fun x y => x = y) (k x) (k x)