Mercurial > hg > Gears > GearsAgda

changeset 555:e8c9a492b578

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
a little fix on refl
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 26 Mar 2018 23:44:02 +0900
parents 988c12d7f887
children 69fc15bb4e82
files redBlackTreeTest.agda
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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 )