diff options
| author | Chloe Brown <chloe.brown.00@outlook.com> | 2021-03-27 20:32:03 +0000 |
|---|---|---|
| committer | Chloe Brown <chloe.brown.00@outlook.com> | 2021-03-27 20:32:03 +0000 |
| commit | adad5280af0d81a2f171df619e9c7169dcb43a02 (patch) | |
| tree | c537696feea2aec1688d398bf5fd93e76f72c702 /src/Cfe/Context/Base.agda | |
| parent | c67134fc5cb9e338cb397df029e5528d469771d4 (diff) | |
Introduce non-terminating proof of derivation existence.
Diffstat (limited to 'src/Cfe/Context/Base.agda')
| -rw-r--r-- | src/Cfe/Context/Base.agda | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Cfe/Context/Base.agda b/src/Cfe/Context/Base.agda index 2814a64..a428d3c 100644 --- a/src/Cfe/Context/Base.agda +++ b/src/Cfe/Context/Base.agda @@ -54,6 +54,8 @@ record Context n : Set (c ⊔ lsuc ℓ) where Γ : Vec (Type ℓ ℓ) (n ∸ m) Δ : Vec (Type ℓ ℓ) m +∙,∙ : Context 0 +∙,∙ = record { m≤n = z≤n ; Γ = [] ; Δ = [] } toVec : ∀ {n} → Context n → Vec (Type ℓ ℓ) n toVec record { m = .0 ; m≤n = _ ; Γ = Γ ; Δ = [] } = Γ |