Skip to content
Snippets Groups Projects
Commit 4ffb0d3c authored by Max New's avatar Max New
Browse files

A simpler definition of Dyn?

parent f4b0666a
No related branches found
No related tags found
No related merge requests found
......@@ -348,17 +348,20 @@ data Dyn' (D : ▹ Type) : Type where
nat : ℕ -> Dyn' D
arr : ▸ (λ t → D t -> L℧ (D t)) -> Dyn' D
-- Would this Dyn be better?
data Dyn'' (D : ▹ Type) : Type where
nat : ℕ -> Dyn'' D
arr : (▸ D -> L℧ (Dyn'' D)) -> Dyn'' D
Dyn : Type
Dyn = fix Dyn'
-- Embedding-projection pairs
record EP (A B : Set) : Set where
field
emb : A -> B
proj : B -> L℧ A
-- E-P Pair for a type with itself
EP-id : (A : Type) -> EP A A
EP-id A = record {
......
......@@ -31,10 +31,10 @@ private
k : Clock
▹_,_ : Clock → Set l → Set l
▹ k , A = (@tick x : Tick k) → A
▹ k , A = (@tick t : Tick k) → A
▸_ : ▹ k , Set l → Set l
▸ A = (@tick x : Tick _) → A x
▸ A = (@tick t : Tick _) → A t
next : A → ▹ k , A
next x _ = x
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment