diff a02/agda/equality.agda @ 141:b3f05cd08d24

clean up
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 27 Dec 2020 13:26:44 +0900
parents 3be1afb87f82
children 407684f806e4
line wrap: on
line diff
--- a/a02/agda/equality.agda	Sat Mar 14 19:42:27 2020 +0900
+++ b/a02/agda/equality.agda	Sun Dec 27 13:26:44 2020 +0900
@@ -19,8 +19,8 @@
 subst : {A : Set } → { x y : A } → ( f : A → Set ) → x == y → f x → f y
 subst {A} {x} {y} f refl fx = fx
 
-ex5 :   {A : Set} {x y z : A } →  x == y → y == z → x == z
-ex5 {A} {x} {y} {z} x==y y==z = subst {!!} {!!} {!!}
+-- ex5 :   {A : Set} {x y z : A } →  x == y → y == z → x == z
+-- ex5 {A} {x} {y} {z} x==y y==z = subst (λ refl  → {!!} ) x==y {!!}