# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1618821779 -32400
# Node ID 88f441d5bb18975c0d21b87f680106d88fb8f022
# Parent  9272cafd167541d9a255d74945ea2b0f34ac3d02
...

diff -r 9272cafd1675 -r 88f441d5bb18 src/Polynominal.agda
--- a/src/Polynominal.agda	Mon Apr 19 16:05:52 2021 +0900
+++ b/src/Polynominal.agda	Mon Apr 19 17:42:59 2021 +0900
@@ -162,7 +162,8 @@
                k x phi ≈⟨ k-cong x _ _ (sym fx=p)  phi i ⟩
                k x {f' ∙ < x ∙ ○ b , id1 A b >} i ≈⟨ trans-hom (sym assoc)  (cdr (IsCCC.distr-π isCCC) ) ⟩ -- ( f' ∙ < x ∙ ○ b , id1 A b> ) ∙ π'
                f' ∙ k x {< x ∙ ○ b , id1 A b >} (iii i i )                    -- ( f' ∙ < (x ∙ ○ b) ∙ π'              , id1 A b ∙ π' > ) 
-                   ≈↑⟨ cdr (π-cong (trans-hom (IsCCC.e3a isCCC)  k x {< x ∙ ○ b , id1 A b >} (iii i i ){!!}) refl-hom ) ⟩ 
+                   ≈↑⟨ cdr (π-cong {!!} refl-hom ) ⟩ 
+               f' ∙ < k x {x ∙ ○ b} (iv ii i ) , k x {id1 A b} i >   ≈⟨ refl-hom ⟩
                f' ∙ < k x {x} ii ∙ < π , k x {○ b} i >  , k x {id1 A b} i >   -- ( f' ∙ < π ∙ < π , (x ∙ ○ b) ∙ π' >  , id1 A b ∙ π' > ) 
                    ≈⟨ cdr (π-cong (cdr (π-cong refl-hom (car e2))) idL ) ⟩ 
                f' ∙  <  π ∙ < π , (○ b ∙ π' ) >  , π' >   ≈⟨ cdr (π-cong (IsCCC.e3a isCCC)  refl-hom) ⟩