changeset 960:062974e39cc7

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 21 Feb 2021 21:39:01 +0900
parents d743fd968582
children 0719e76cd3b8
files src/equalizer.agda
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/equalizer.agda	Sun Feb 21 20:40:00 2021 +0900
+++ b/src/equalizer.agda	Sun Feb 21 21:39:01 2021 +0900
@@ -386,9 +386,9 @@
              ∎ where
                 open ≈-Reasoning A
                 p : Hom A (equ bur (f o h) (g o h)) (equ bur (f o ( α bur f g o k'))(g o ( α bur f g o k')))
-                p = ?
+                p = γ bur (f o ( α bur f g o k')) (g o ( α bur f g o k')) (id1 A _) o δ bur {!!} {!!} {!!} o {!!}
                 q : Hom A (equ bur (f o ( α bur f g o k'))(g o ( α bur f g o k'))) (equ bur (f o h) (g o h)) 
-                q = ?
+                q = γ bur (f o h) (g o h) (id1 A _) o  δ bur {!!} {!!} {!!} o {!!} 
                 pq=1 : A [ A [ p o q ] ≈ id1 A _ ]
                 pq=1 = {!!}