Mercurial > hg > Members > atton > agda-proofs

annotate cbc/subtype.agda @ 51:16e27df74ec5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Split subtype definitions for reuse context
author atton <atton@cr.ie.u-ryukyu.ac.jp>
date Tue, 10 Jan 2017 02:04:55 +0000
parents ccb34e3f1514
children 4880184e4ab5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
1 module subtype (Context : Set) where
37
60e604972f30 Trying define codesegment using named-product with subtype
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
38
a0ca5e29a9dc Call subtype using user-defined cast operator
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 37
diff changeset
3 open import Relation.Binary.PropositionalEquality
a0ca5e29a9dc Call subtype using user-defined cast operator
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 37
diff changeset
4
37
60e604972f30 Trying define codesegment using named-product with subtype
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
6 record DataSegment (A : Set) : Set where
39
d8312361afdc Call subtype using user-defined cast operator with subtype list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 38
diff changeset
7 field
d8312361afdc Call subtype using user-defined cast operator with subtype list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 38
diff changeset
8 get : Context -> A
d8312361afdc Call subtype using user-defined cast operator with subtype list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 38
diff changeset
9 set : Context -> A -> Context
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
10 open DataSegment
38
a0ca5e29a9dc Call subtype using user-defined cast operator
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 37
diff changeset
11
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
12 data CodeSegment (A B : Set) : Set where
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
13 cs : {{_ : DataSegment A}} {{_ : DataSegment B}} -> (A -> B) -> CodeSegment A B
37
60e604972f30 Trying define codesegment using named-product with subtype
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14
38
a0ca5e29a9dc Call subtype using user-defined cast operator
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 37
diff changeset
15
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
16 exec : {I O : Set} {{_ : DataSegment I}} {{_ : DataSegment O}} -> CodeSegment I O -> Context -> Context
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
17 exec {l} {{i}} {{o}} (cs b) c = DataSegment.set o c (b (get i c))
37
60e604972f30 Trying define codesegment using named-product with subtype
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
40
e6b965df2137 Trying define type composition using subtype through DS
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 39
diff changeset
19
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
20 comp : {con : Context} -> {A B C D : Set} {{_ : DataSegment A}} {{_ : DataSegment B}} {{_ : DataSegment C}} {{_ : DataSegment D}}
46
af1fe3bd9f1e Define code segment compose operator using type -> ds cast
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
21 -> (C -> D) -> (A -> B) -> A -> D
47
49de29c12c7b Define code segment compose operator using type -> ds cast!
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 46
diff changeset
22 comp {con} {{i}} {{io}} {{oi}} {{o}} g f x = g (get oi (set io con (f x)))
46
af1fe3bd9f1e Define code segment compose operator using type -> ds cast
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 45
diff changeset
23
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
24 csComp : {con : Context} {A B C D : Set}
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
25 {{_ : DataSegment A}} {{_ : DataSegment B}} {{_ : DataSegment C}} {{_ : DataSegment D}}
49
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
26 -> CodeSegment C D -> CodeSegment A B -> CodeSegment A D
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
27 csComp {con} {A} {B} {C} {D} {{da}} {{db}} {{dc}} {{dd}} (cs g) (cs f)
48
fe5755744071 Trying prove associativity of composition of code segments
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 47
diff changeset
28 = cs {{da}} {{dd}} (comp {con} {{da}} {{db}} {{dc}} {{dd}} g f)
42
f7916d13e2b1 Trying define type composition using list of subtype...
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 41
diff changeset
29
48
fe5755744071 Trying prove associativity of composition of code segments
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 47
diff changeset
30
47
49de29c12c7b Define code segment compose operator using type -> ds cast!
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 46
diff changeset
31
49
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
32 comp-associative : {A B C D E F : Set} {con : Context}
51
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
33 {{da : DataSegment A}} {{db : DataSegment B}} {{dc : DataSegment C}}
16e27df74ec5 Split subtype definitions for reuse context
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 50
diff changeset
34 {{dd : DataSegment D}} {{de : DataSegment E}} {{df : DataSegment F}}
49
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
35 -> (a : CodeSegment A B) (b : CodeSegment C D) (c : CodeSegment E F)
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
36 -> csComp {con} c (csComp {con} b a) ≡ csComp {con} (csComp {con} c b) a
8031568638d0 Define composition of codesegment using subtype without constraint list
atton <atton@cr.ie.u-ryukyu.ac.jp>
parents: 48
diff changeset
37 comp-associative (cs _) (cs _) (cs _) = refl