Another attempt at fixing the counit problem for coq:dev

jwiegley · Jan 30, 2024 · a67a044 · a67a044
1 parent 4501fb3
commit a67a044
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Monad/Adjunction.v b/Monad/Adjunction.v
@@ -75,7 +75,9 @@ Proof.
   - simpl.
     srewrite (@fmap_counit_unit); cat.
   - rewrite <- !fmap_comp.
-    now srewrite (naturality[counit[X]]).
+    apply fmap_respects.
+    symmetry.
+    apply (naturality[counit]).
 Qed.
 
 End AdjunctionMonad.