changeset 886:1c659deb22f8

loop
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 12 Apr 2020 03:34:50 +0900
parents a502754b890a
children 9c41a7851817
files CCCGraph1.agda
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/CCCGraph1.agda	Sun Apr 12 03:26:35 2020 +0900
+++ b/CCCGraph1.agda	Sun Apr 12 03:34:50 2020 +0900
@@ -295,6 +295,12 @@
                   cong₂ (λ j k → < j , k > ) ( d-eval f g ) ( d-eval f₁ g ))
               d-eval (iv x (iv f f₁)) g = begin
                     eval (iv x (iv f f₁) ・ g)
+                ≡⟨⟩
+                    eval (iv x (iv f f₁ ・ g))
+                ≡⟨ {!!} ⟩
+                    eval (iv x (eval (iv f f₁ ・ g)))
+                ≡⟨ {!!} ⟩
+                    eval (iv x (eval (iv f f₁) ・ eval g))
                 ≡⟨ {!!} ⟩
                     eval (eval (iv x (iv f f₁)) ・ eval g)
                 ∎  where open ≡-Reasoning