Mercurial > hg > Members > atton > agda-proofs

diff cbc/stack-subtype.agda @ 64:44d448a978d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trying define n-push/n-pop equiv
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Sat, 14 Jan 2017 05:46:16 +0000
parents 7af6c894f411
children
line wrap: on
line diff
--- a/cbc/stack-subtype.agda	Sat Jan 14 02:35:33 2017 +0000
+++ b/cbc/stack-subtype.agda	Sat Jan 14 05:46:16 2017 +0000
@@ -96,7 +96,7 @@
     st : Meta -> SingleLinkedStack A
     st record {stack = record { top = (just (cons _ s)) }} = record {top = s}
     st record {stack = record { top = nothing           }} = record {top = nothing}
-    
+