annotate agda/delta/functor.agda @ 146:57601209eff3 default tip

Add an example used multi types on Delta
author Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
date Tue, 24 Mar 2015 17:04:00 +0900
parents d205ff1e406f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
87
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 open import Level
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 open import Relation.Binary.PropositionalEquality
112
0a3b6cb91a05 Prove left-unity-law for DeltaM
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 105
diff changeset
3 open ≡-Reasoning
87
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
104
ebd0d6e2772c Trying redenition Delta with length constraints
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
5 open import basic
ebd0d6e2772c Trying redenition Delta with length constraints
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
6 open import delta
ebd0d6e2772c Trying redenition Delta with length constraints
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
7 open import laws
ebd0d6e2772c Trying redenition Delta with length constraints
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
8 open import nat
ebd0d6e2772c Trying redenition Delta with length constraints
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 97
diff changeset
9
87
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 module delta.functor where
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 -- Functor-laws
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13
131
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
14 -- functor-law 1 : T(id) = id'
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
15 delta-preserve-id : {l : Level} {A : Set l} {n : Nat} -> (d : Delta A (S n)) -> (delta-fmap id) d ≡ id d
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
16 delta-preserve-id (mono x) = refl
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
17 delta-preserve-id (delta x d) = cong (delta x) (delta-preserve-id d)
87
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18
131
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
19
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
20 -- functor-law 2 : T(f . g) = T(f) . T(g)
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
21 delta-covariant : {l : Level} {n : Nat} {A B C : Set l} ->
105
e6499a50ccbd Retrying prove monad-laws for delta
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
22 (f : B -> C) -> (g : A -> B) -> (d : Delta A (S n)) ->
93
8d92ed54a94f Prove functor-laws for deltaM
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 90
diff changeset
23 (delta-fmap (f ∙ g)) d ≡ ((delta-fmap f) ∙ (delta-fmap g)) d
131
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
24 delta-covariant f g (mono x) = refl
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
25 delta-covariant f g (delta x d) = cong (delta (f (g x))) (delta-covariant f g d)
87
6789c65a75bc Split functor-proofs into delta.functor
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26
105
e6499a50ccbd Retrying prove monad-laws for delta
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
27
131
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
28 delta-fmap-equiv : {l : Level} {A B : Set l} {n : Nat} {f g : A -> B}
126
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
29 (eq : (x : A) -> f x ≡ g x) -> (d : Delta A (S n)) ->
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
30 delta-fmap f d ≡ delta-fmap g d
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
31 delta-fmap-equiv {l} {A} {B} {O} {f} {g} eq (mono x) = begin
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
32 mono (f x) ≡⟨ cong mono (eq x) ⟩
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
33 mono (g x)
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
34
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
35 delta-fmap-equiv {l} {A} {B} {S n} {f} {g} eq (delta x d) = begin
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
36 delta (f x) (delta-fmap f d) ≡⟨ cong (\de -> delta de (delta-fmap f d)) (eq x) ⟩
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
37 delta (g x) (delta-fmap f d) ≡⟨ cong (\de -> delta (g x) de) (delta-fmap-equiv eq d) ⟩
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
38 delta (g x) (delta-fmap g d)
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
39
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
40
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
41
105
e6499a50ccbd Retrying prove monad-laws for delta
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
42
e6499a50ccbd Retrying prove monad-laws for delta
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 104
diff changeset
43 delta-is-functor : {l : Level} {n : Nat} -> Functor {l} (\A -> Delta A (S n))
126
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
44 delta-is-functor = record { fmap = delta-fmap
131
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
45 ; preserve-id = delta-preserve-id
d205ff1e406f Cleanup proofs
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
46 ; covariant = \f g -> delta-covariant g f
126
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
47 ; fmap-equiv = delta-fmap-equiv
5902b2a24abf Prove mu-is-nt for DeltaM with fmap-equiv
Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp>
parents: 113
diff changeset
48 }