# HG changeset patch
# User atton <atton@cr.ie.u-ryukyu.ac.jp>
# Date 1485926910 0
# Node ID f1ab418bc37f28dbb48245383053e4f50e9c8887
# Parent  a5cac9483f913eaa740df06813706355e6c4ac01
Cleanup sample

diff -r a5cac9483f91 -r f1ab418bc37f cbc/subtype.agda
--- a/cbc/subtype.agda	Wed Feb 01 05:27:05 2017 +0000
+++ b/cbc/subtype.agda	Wed Feb 01 05:28:30 2017 +0000
@@ -13,8 +13,7 @@
 data CodeSegment {l1 l2 : Level} (A : Set l1) (B : Set l2) : Set (l ⊔ l1 ⊔ l2) where
   cs : {{_ : DataSegment A}} {{_ : DataSegment B}} -> (A -> B) -> CodeSegment A B
 
-goto : {l1 l2 : Level} {I : Set l1} {O : Set l2} {{_ : DataSegment I}} {{_ : DataSegment O}}
-     -> CodeSegment I O -> I -> O
+goto : {l1 l2 : Level} {I : Set l1} {O : Set l2} -> CodeSegment I O -> I -> O
 goto (cs b) i = b i
 
 exec : {l1 l2 : Level} {I : Set l1} {O : Set l2} {{_ : DataSegment I}} {{_ : DataSegment O}}