# HG changeset patch
# User Shinji KONO <kono@ie.u-ryukyu.ac.jp>
# Date 1522075442 -32400
# Node ID e8c9a492b578447dc0734348552299e654d3c8fa
# Parent  988c12d7f887e1e6a1d93634931a41c1aa09aa0b
a little fix on refl

diff -r 988c12d7f887 -r e8c9a492b578 redBlackTreeTest.agda
--- a/redBlackTreeTest.agda	Mon Mar 26 23:22:07 2018 +0900
+++ b/redBlackTreeTest.agda	Mon Mar 26 23:44:02 2018 +0900
@@ -141,7 +141,7 @@
 compareTri zero (suc n) = tri< ( compareTri1 n )  ( λ ()) ( λ ())
 compareTri (suc n) zero = tri> ( λ ()) ( λ ()) ( compareTri1 n )
 compareTri (suc n) (suc m) with compareTri n m
-... | tri≈ p q r = tri≈ {!!} (cong ( λ x -> suc x) q) {!!}
+... | tri≈ p refl r = tri≈ {!!} refl {!!}
 ... | tri< p q r = tri<  (compareTri2 n m p ) {!!} {!!}
 ... | tri> p q r = tri> {!!} {!!}  (compareTri2 m n r )