induction as
α : Type u
inst✝ : Category α
as : List α
⊢ mapF.unitorOplax as ≫ mapF.unitorLax as = 𝟙 (Prefunctor.obj (Prefunctor.obj mapF.toPrefunctor (𝟭 α)).toPrefunctor as)
case nil
α : Type u
inst✝ : Category α
⊢ mapF.unitorOplax [] ≫ mapF.unitorLax [] = 𝟙 (Prefunctor.obj (Prefunctor.obj mapF.toPrefunctor (𝟭 α)).toPrefunctor [])

case cons
α : Type u
inst✝ : Category α
head✝ : α
tail✝ : List α
tail_ih✝ :
  mapF.unitorOplax tail✝ ≫ mapF.unitorLax tail✝ =
    𝟙 (Prefunctor.obj (Prefunctor.obj mapF.toPrefunctor (𝟭 α)).toPrefunctor tail✝)
⊢ mapF.unitorOplax (head✝ :: tail✝) ≫ mapF.unitorLax (head✝ :: tail✝) =
    𝟙 (Prefunctor.obj (Prefunctor.obj mapF.toPrefunctor (𝟭 α)).toPrefunctor (head✝ :: tail✝))